如何在命令栏 VBA PowerPoint 中制作切换按钮？

Question

我试图在命令栏上创建一个切换按钮，但我遇到了两个问题 1) 它一直执行 'removebleed' 而不是在两者之间切换。 2）它不显示正在切换的按钮。首先，我附上了菜单按钮代码，然后附在按钮代码之后。非常感谢您的帮助，Jay

Set ToggleButton = oToolbar.Controls.Add(Type:=msoControlButton)

    With ToggleButton

         .DescriptionText = "Switch bleed on or off"

         .Caption = "Bleed on/off"

         .OnAction = "ToggleButton"

         .Style = msoButtonCaption

    End With

Sub ToggleButton()

Static Toggle As Boolean
If Toggle = True Then
With Application.CommandBars.ActionControl
 .State = Not .State
End With
 Toggle = False ' changes the variable so next time it unpresses the button and runs the other macro

AddBleed

Else

RemoveBleed

End If

End Sub

Sub AddBleed()
Dim WidthBleed As String
Dim HeightBleed As String

WidthBleed = 0.125 * 72
HeightBleed = 0.25 * 72

SWidth = ActivePresentation.PageSetup.SlideWidth
SHeight = ActivePresentation.PageSetup.SlideHeight

With Application.ActivePresentation.PageSetup

    .SlideWidth = SWidth + WidthBleed

    .SlideHeight = SHeight + HeightBleed

End With

End Sub

Sub RemoveBleed()
Dim WidthBleed As String
Dim HeightBleed As String
Dim SWidth As String
Dim SHeight As String

WidthBleed = 0.125 * 72
HeightBleed = 0.25 * 72

SWidth = ActivePresentation.PageSetup.SlideWidth
SHeight = ActivePresentation.PageSetup.SlideHeight

With Application.ActivePresentation.PageSetup

    .SlideWidth = SWidth - WidthBleed

    .SlideHeight = SHeight - HeightBleed

End With

End Sub

Answer 1

我需要将 Toggle True 添加到 'Else' 一侧

Sub ToggleButton()

Static Toggle As Boolean
If Toggle = True Then
With Application.CommandBars.ActionControl
 .State = Not .State
End With
 Toggle = False ' changes the variable so next time it unpresses the button and runs the other macro

RemoveBleed

Else

With Application.CommandBars.ActionControl 'unpresses the button
 .State = Not .State
End With
 Toggle = True 'changes the variable so next time it operates the other macro


AddBleed

End If

End Sub

如何在命令栏 VBA PowerPoint 中制作切换按钮？

How to make a toggle button in a commandbar VBA PowerPoint?

powerpoint

vba