A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
たとえば、スライド1にある、あるオブジェクトを選択して、塗りつぶしを赤色に変更します。
これをマクロに記録すると、Sub Macro1()
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(255, 51, 0)
.Fill.Visible = msoTrue
.Fill.Solid
End With
End Sub
となっています。このマクロから、オブジェクト名"Rectangle 2"と、赤色のRGB値が(255, 51, 0)であることが判ります。
さて、それを使って、スライドショーでの、Rectangle 2の色変更のマクロを作ると、
Sub Clr_Cng_Rect2()
ActivePresentation.Slides(1).Shapes _
("Rectangle 2").Fill.ForeColor.RGB = RGB(255, 51, 0)
End Sub
となります(マクロ名は適当につけてください)。
次に、オブジェクトRectangle 2をクリックして、ショートカットメニューから、「オブジェクトの動作設定」を選択し、「マウスクリック」タブのオプションボタン「マクロの実行」を選択して、プルダウンメニューから、先ほど作ったマクロを選択します(例ではClr_Cng_Rect2)。
これで、スライドショーを実行し、クリックしてみてください。色が変わります。Slides( )のインデックス値やオブジェクト名が違っていると動作しませんので注意してください。
当方windows2000+powerpoint2000で動作確認
なお、オブジェクトの色だけ変えたもの次のスライドに準備しておいて、ハイパーリンクで「次のスライド」とすれば、マクロ不要にて同じことができます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PowerPoint(パワーポイント) パワーポイントのアニメーションについて 4 2023/06/14 16:25
- Visual Basic(VBA) VBA アドインについて お詳しい方 ご教授をお願いします。 相談事項 現在以下の対応を実施した所、 1 2022/11/02 16:53
- Excel(エクセル) マクロでボタンにつける名前がどこに設定されているかわからないケースがありました。 1 2023/06/19 19:37
- Visual Basic(VBA) Excel VBA オブジェクトマクロ 使用指定について お詳しい方教えてください。 共通エクセルフ 2 2023/03/14 17:26
- CAD・DTP Autocad Scriptファイルからの入力とコマンドラインからの入力が違う 1 2023/08/01 09:13
- Visual Basic(VBA) エクセルのマクロとシートの保護について教えてください。 1 2022/10/18 08:36
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Visual Basic(VBA) Excelのマクロ ブック間である範囲をコピー Workbooks(“a.xlsx“).Sheets 3 2022/05/12 17:02
- その他(ソフトウェア) LDPlayerのマクロの編集方法を知りたい 1 2023/03/04 11:46
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行すると メッセージボックスが表示されて okをク 4 2023/07/05 19:32
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
PPTのコマンドボタンがクリックできません
その他(Microsoft Office)
-
パワーポイントでマウスを乗せると色が変わるテクニック
PowerPoint(パワーポイント)
-
パワーポイントのVBAでテキストボックスに値を変更させたいです
Visual Basic(VBA)
-
-
4
【パワーポイント】「ファイルを開いたら」vbaの実行したい
PowerPoint(パワーポイント)
-
5
PowerPointのVBAについて質問です。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
EXCELのセルへ、デジタル時計を...
-
マクロ 実行ボタンを押さずに...
-
ワードからエクセルへ貼り付け...
-
エクセル グラフの軸の最小値最...
-
モジュール内のマクロを全て実...
-
Wordの画面を左右にスクロール...
-
エラーになってないのにVBA...
-
Accessのクエリを実行するショ...
-
TeraTermのマクロについて
-
複数ファイルにある特定のシー...
-
Excelを開いた時に表示さ...
-
【Excel VBA】エラー番号400
-
エクセルで複数のシートをまと...
-
《エクセル2000》非表示になっ...
-
ワードマクロで画像を選択する方法
-
EXCEL 複数のシートの同一の位...
-
Excel VBA のdebug(F8キー) が...
-
Excel文字列中の太字(Bold)部分...
-
【ExcelVBA】名前を付けて保存→...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
EXCELのセルへ、デジタル時計を...
-
マクロ 実行ボタンを押さずに...
-
複数ファイルにある特定のシー...
-
Excelのワークシート上に検索窓...
-
Excel VBA のdebug(F8キー) が...
-
Excelを開いた時に表示さ...
-
エラーになってないのにVBA...
-
エクセルのマクロ機能で前のシ...
-
エクセル グラフの軸の最小値最...
-
モジュール内のマクロを全て実...
-
EXCEL 複数のシートの同一の位...
-
エクセルで複数のシートをまと...
-
ワードからエクセルへ貼り付け...
-
【Excel VBA】エラー番号400
-
Wordの画面を左右にスクロール...
-
Excelマクロでオプションボタン...
-
TeraTermのマクロについて
-
マクロ ブックをマクロなしでコ...
-
Wordで「原稿用紙○枚」を換算す...
おすすめ情報