DreamyCat の回答履歴

現在, パワポのマクロをVBAで作成しているのですが, ネット上でも資料が少なくて困っています。 マクロの内容は、ページ内に 総ページ数から現在のページがどの程度進んでいるかを図で表すようなもの を設置するといったものです。 図は、総ページ3ページなら ■□□　←　1ページ ■■□　←　2ページ といった感じです。 現在、四角を配置することまではできたのですが、 その四角の色を変更することができなくて迷っています。 ソースコードは以下のように書いています。 Sub ページ進行表示() Dim PCount Dim Color1, Color2 Color1 = RGB(255, 0, 0) Color2 = RGB(255, 180, 180) ActivePresentation.Slides(1).Select PCount = ActivePresentation.Slides.Count For i = 1 To PCount ActivePresentation.Slides(i).Select For j = 1 To PCount ActivePresentation.Slides.Item(i).Shapes.AddShape(msoShapeRectangle, 10 + (j * 10), 10, 5, 20).Select ActivePresentation.Slides.Item(i).Shapes(i).Fill.ForeColor = Color Next Next End Sub 追加した図形を選択して色を変更する方法を教えてください

PowerPointでSlide1にテキストボックスとボタンを配置して、 ボタンを押すとテキストボックスの値をクリアしSlide2に遷移する動作の実装方法を教えてください。 ボタンに下記のマクロを設定したのですが、２回クリックしないと、値をクリアして次の画面に遷移しません。 １回のクリックで値のクリアと遷移を同時にしたいのですが、正しい記述方法を教えてください。 Sub pagenext() LblAnser.Text = " " ActivePresentation.SlideShowWindow.View.Next End Sub

Word2007・2010を開くと、 実行しようとしている昨日は、マクロ言語のサポートを必要とするコンテンツが含まれています。 ただし、ユーザーまたは管理者がこのアプリケーションをインストールしたときに、 マクロまたはコントロールのサポートはインストールしないように設定されています。 と、毎回表示され、編集中にもたびたび現れます。 これを表示させないようにするには、どのような操作をすれば良いですか？ マクロまたはコントロールのサポートはインストール【する】に設定をするには、 どのようなインストール方法がありますか？

word2010のクイックアクセスツールバーについて教えてください。 以前のバージョン２００７で，古いバージョンのwordファイルを開いた場合， 「互換モード(.doc)」として文書が開かれます。 その文書を，２００７（.docx)に変換するコマンドをクイックアクセスツールバーに 配置することが来ましたが，２０１０ではそのコマンドが見つかりません。 リボンの「ファイル」→「情報」→「変換」を一回でできる クイックアクセスツールバーのコマンドがあれば どなたかわかる方教えてください。 よろしくお願いします。

Excel2007でのハイパーリンクをクリックした際に発生するイベントについてお伺いさせてください。 Excelでハイパーリンクのイベントを用いてやりたいことがあったのですが、どうしてもWorkbook_SheetFollowHyperlinkでの動作がうまくいかないため、以下の処理を試みてみました。 Private Sub Workbook_SheetFollowHyperlink 　　　　　　　　　　　　　　　　　　　　　(ByVal Sh As Object, ByVal Target As Hyperlink) 　　　　Worksheets("sheet1").Cells(1, 1).Value = 5 End Sub ところが、ハイパーリンクをクリックしてもsheet1のセルA1には代入は行われず、ただリンク先のセルへ飛ぶだけの処理となってしまいます。 以上を踏まえた上で以下の2点について質問させてください。 ・Workbook_SheetFollowHyperlinkはブック内のハイパーリンクをクリックしたときに呼び出されるという認識に間違いがあるのでしょうか。 ・上記のようにハイパーリンクをクリックした際に指定したセルへ適当な数値を代入するにはどうすればよいのでしょうか。 わかりにくい文章で申し訳ありませんが、ご教授の程よろしくお願いいたします。

powerpointファイルが開けない powerpoint2010とWindows 7 proを使っています。 powerpointを使用してppt形式で保存して後から 開こうとしたのですが、 「コンテンツに問題が見つかりました。 プレゼンテーションを修復できる可能性があります。」 というダイアログが出るようになりました。 それで、「修復」を選択すると、 「～にアクセス中に、エラーが発生しました。」 というダイアログが出て、開くことができません。 それでインターネットで検索したところ、 http://support.microsoft.com/default.aspx?scid=kb;ja;882140 ファイルの挿入を使えば開けることが分かりました。 ところが、オブジェクトの挿入で開こうとしても 「このファイルから問題が検出されました コンピュータを保護するため、ファイルは開かれません」 というダイアログが出て、開くことが出来ません。 更に、この問題を調べるために検索したところ、 http://support.microsoft.com/kb/973736 「この問題を回避するには、ファイルを信頼できる場所に移動します。」 ということが分かりました。 でも、「信頼できる場所」というのがどこのことか分かりません。 今までpowerpoint XPや2003を使ってきましたが、 このような問題が発生したことはありませんでした。 一体、どうすれば保存したファイルを開くことができますでしょうか？

スライド全体をそのまま文字とイラストを徐々に薄くして真っ白になるように フェードアウトしたいのですが 出来ますでしょうか？ お願いいたします。

フォーム上で右クリック禁止にしたいのですが どうすればいいでしょうか？ フォームの KeyDown（キークリック時） KeyPress（キー入力時） KeyUp（キー開放時） のどれかのイベントな気がしますが どのイベントにどのようなＶＢＡコードを書けばいいのかわかりません。 ご教示よろしくお願い致します。（ａｃｃｅｓｓ2003）

変数の型のByteをオブジェクトブラウザで検索しても出てこない理由は何でしょうか？ accessでもエクセルでも出てきません。

こちらの教えてgooとmougでは どちらが質問するのに向いているのでしょうか 回答がつきやすい、専門家が多いのはどちらでしょうか？ 失礼な質問ですいません。 よろしくお願い致します。

エクセルの操作法に詳しい方にお尋ねします。　 私は、ウィンドウズ７で、エクセル２０１０を使用しています。 エクセルで文字を打つと通常は横書きになります。 しかし私は、これを「縦書き」にして、「罫線」を消してしまい、さらに「セルの背景色を透明化」して、ウィンドウズ７のペイント画面にあるイラストに貼りたいのです。 　つまり、ペイント画面に文字を貼り付ける時、イラストの良さを殺さぬように、文字の周囲が「白抜き」にならず、さらに罫線の枠が表示されない方法を探している、ということです。 　できれば早急に教えていただけると幸いです。

Excelでウィンドウ枠を固定したSheetにWindowsMediaPlayerを貼り付けています。 SheetをScrollさせるとき，WMPが連動して隠れるのを防げませんか。 UserForm，Shell，HyperLinkなどを利用しての隠れない方法は確認済です。 また，WMPをSheetに貼り付けた状態では画面をクリックして移動させております。 WMPをScrollに連動させる良い方法があったら，教えていただけませんか。 ThisWorkbookに，次のように記入すれば Private Sub Workbook_Open() Worksheets("Sheet1").WindowsMediaPlayer1.Left = Application.Left + 100 Worksheets("Sheet1").WindowsMediaPlayer1.Top = Application.Top + 100 End Sub 似たようなことはできるのですが，他の操作後，Scrollで隠れてしまいます。 APIでTimerを使うことも検討していますが，考えているものをまだ見つけていません。 これができると，他のコントロールにも応用できそうなのですが・・・。

PowerPointのトップファイルにmid音楽を付けて、繰り返しの設定にしています。 スライド終わっても、クリックしないと音楽が止まりません スライドが終了するときに音楽も自動的に終わる方法、又はフェードアウトする方法がありますか？ オーディをのトリミングを試していますが、うまくいきません

パワーポイントに貼り込まれたエクセルのグラフの元データを復元したいのです。例えば他人が作ったパワーポイントに貼り込まれた棒グラフの棒にカーソルを近づけると、吹き出しで元データが判りますが、これを全ての棒についてやるのは骨が折れます。何か自動でエクセルのデータを再現する方法はありませんか？

マクロ初級です。 windowsXP(SP3) office2007 Excelのマクロで、APIのSetActiveWindowを使おうとしましたが、宣言のところで エラーがでました。 　設定は、 　Public Declare Function SetActiveWindow Lib "user32" (ByVal hWnd As Long) As Long 　もしくは 　Public Declare Function SetActiveWindow Lib "user32" (ByVal hWnd&) As Long 　コンパイルエラー 　定数、固定長文字列、配列、ユーザ定義型および Declare ステートメントは 　オブジェクトモジュールのパブリックメンバとしては使用できません。 ウィンドウをアクティブな状態等に用いたいのですが、定義の仕方が悪いのでしょうか？ 皆さま、ご教授下さい。

現在、会社でエクセル２００３を使用しておりますが、ＰＣ入替によって 年内にＷｉｎｄｏｗｓ７・エクセル２０１０が導入されることとなりました。 そこで気になっているのがマクロ処理の件です。 (1)「○○○○．ｘｌｓ」の名前で保存、(2)「○○○○．ｘｌｓ」を起動といったマクロ 処理を現在多様しているのですが、このファイルをいきなりエクセル２０１０で 使用してしまうと、やはりエラーが発生してしまうのでしょうか？ エクセル２００７以降はマクロを含むブックの場合、「ｘｌｓｍ形式」として 取り扱われるようですので、単純にマクロ内容を「ｘｌｓ形式」から「ｘｌｓｍ形式」に 置換すれば解決するものなのでしょうか？ 会社のＰＣ入替は段階的に行われるため、エクセル２００３とエクセル２０１０が 共存可能な様にマクロを設定し直したいのですが、いい案が浮かびません。 対応策をご存知の方がおられましたら是非教えて下さい。宜しくお願いします。

PowerPointでも、VBAを使い色々なことが出来るということを知りました。 現在会社でPowerPoint2003を使用して、資料作成を行っているのですが 「全スライド中に存在する全てのテキストボックスから、特定の文字列を抽出して それらを特定の文字列に置き換える」ということは、ＶＢＡを使うことで実現可能でしょうか。 ExcelVBAのコードをアレンジしてひょっとして出来たりするのかな？と思ったりしているのですが・・・。 膨大なページ数がある資料の、ある語句を全て書きかえねばならず 手作業ではとても時間がかかってしまうので、なんとか自動化する方法はないだろうかと 思った次第です。 「可能」か「無理」だけでも知りたいと強く思っております。

図のようにシート上にテキストボックスが二つあります。 テキストボックス１からテキストボックス２へ タブキーを使って移動したいのですが機能しません。 無理なのでしょうか？

Excel 2000を使用しています。 ユーザーフォームをモードレスで表示後すぐ、ワークシートの操作が可能なように ワークシートをクリックしたのと同じような効果を与える、やり方ってありますか？ ユーザーフォームは、アクティブセルとその周辺のセルの値を使った計算の結果 を表示するのがメインで、できればマウスでクリックしない限り前面に出てきてほしくない のです。 ユーザーフォームのActivateイベントルーチンに、アクティブでないセルをActivateしたり、 Selectしたりするコードを挿入してみましたが、効果ありませんでした。

パワーポイント２００７で音声ファイル(WAVE)にリンクを張ったところ、クリックするとメディアプレーヤが立ち上がり、パワーポイントの画面を隠してしまいます。隠さないように設定することはできるでしょうか？教えてください。