選択した図形の色を変更したい。私が1つの図形をクリックしてボタンをクリックすると、図のように赤で色を変えたいが、ボタンを押すと色が変わる。パワーポイントのボタンをクリックすると、どのように色を塗りつぶすのですか?
ボタンを作成する方法選択した色の図形を変更する条件を入れますか?
私は別の図形を押して色を変えようとしましたが、私は何を望んでいません。
おかげので、まずたくさん
選択した図形の色を変更したい。私が1つの図形をクリックしてボタンをクリックすると、図のように赤で色を変えたいが、ボタンを押すと色が変わる。パワーポイントのボタンをクリックすると、どのように色を塗りつぶすのですか?
ボタンを作成する方法選択した色の図形を変更する条件を入れますか?
私は別の図形を押して色を変えようとしましたが、私は何を望んでいません。
おかげので、まずたくさん
OK、あなたが選択された形状の色を変更しようとしているので、これはあなたが通常の(編集)ビューにある意味ではなくスライドショー。第2に、マクロを実行するアクションを含むActiveXボタンまたはシェイプは、スライドショーモードでのみクリックできます。したがって、通常のビューで「ボタン」を選択する唯一のオプションは、Officeのリボン拡張機能を使用することです。ボタンのXMLをPowerPointファイルのcustomUIに追加し、それを実行するための関連するマクロを作成する必要があります。例えば、CustomUI Editorを使用して、ファイルにこのXMLを追加します。
// Fluent UI customisation to add a single button to the PowerPoint ribbon //
// Written by Jamie Garroch of YOUpresent Ltd. http://youpresent.co.uk //
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<ribbon>
<tabs>
<tab id="tabMyTab" label="My Tab">
<group id="grpMyGroup" label="My Group">
<button id="btnMyButton" label="My Button" onAction="MyMacro"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>
...その後CustomUIエディタでファイルを閉じて、PowerPointで開きます。次に、あなたのマクロを追加します。
' PowerPoint macro to change the fill colour of a single selected shape
' Written by Jamie Garroch of YOUpresent Ltd. http://youpresent.co.uk
Public Sub MyMacro(control As IRibbonControl)
With ActiveWindow.Selection
If .Type = ppSelectionShapes Then
If .ShapeRange.Count = 1 Then
If .ShapeRange.Type = msoAutoShape Then
.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0)
End If
End If
End If
End With
End Sub
今、あなたはマイボタンをクリックし、カスタムタブでMyタブ、ビューでスライド上のタイプオートシェイプの単一選択形状があるならば、塗りつぶしの色が変わります赤に。