図形を選択してマクロを実行して色を塗る方法は？

Question

私は形状を選択し、そのようなPowerPointプレゼンテーションでの色でこの形状を埋めるためにしようとしています（私は緑のボタンの上に私のコードを置く）：

Sub ChangeInRed() 


    If ActiveWindow.Selection.Type = ppSelectionNone Then 
     MsgBox "Please selecte a zone !" 
    Else 
     For Each shp In ActiveWindow.Selection.ShapeRange 
      shp.Fill.ForeColor.RGB = RGB(255, 0, 0) 
     Next shp 
    End If 


End Sub 

私はマクロコードから自分のコードを実行した場合、選択した形が赤に変わります。シェイプが選択されていない場合は、「ゾーンを選択してください」というコードが表示されます。

良いですが、編集モードでは、このコードを実行するのにマイボタンが有効ではなく、プレゼンテーションモードで試しました。

プレゼンテーションモードでシェイプを選択しようとすると、スライドショーは次のページに移動しますが、その必要はありません。

形状を選択してボタンを押して色を赤色に変えたいのですが、形状をクリックして色を変えたいと思います。

マクロコードの上からコードを試してみると、私の形は赤色に変わりますが、プレゼンテーションには変わりません。

私の質問は、プレゼンテーションモードでシェイプを選択して色を変更する方法ですか？

Answer 1

スライドショー中に図形を変更する場合は、PowerPointの.pptm（または.ppsm）ファイルに下のマクロをコピーしてから、PowerPointのリボンに移動してをクリックします。/アクションとマウスでは、タブをクリックしますマクロの実行をクリックして、ChangeShapeColourマクロはOKをクリックする前に選択されていることを確認します。

Option Explicit 

Sub ChangeShapeColour(ByRef oShp As Shape) 
    oShp.Fill.ForeColor.RGB = RGB(255, 0, 0) 
End Sub