VBA宏来增加powerpoint

Question

基本上，我不是一个程序员，并且在PowerPoint中为教育目的做了很多绘图和图表。我目前使用的是PowerPoint 2016.为了提高我的工作流程速度，我将键盘快捷键映射到键盘上的宏键，这样我就可以通过敲击键盘上的键来获得功能。

我正在尝试找到一个可以链接到键盘快捷键的宏，这样我就可以将当前所选形状的旋转增加到......每次按下快捷键时，我会说2度。

我是ppt vba的新手。到目前为止做了一些研究后，我想出了这个。但它似乎没有起作用。

Public Sub RotateCW2()
  Dim shp As Shape

    Set shp = ActiveWindow.Selection.ShapeRange(1)
    shp.Rotate = shp.Rotate + 2  

End Sub

感谢帮助！

Answer 1

你快到了。试试这个：

Public Sub RotateCW2()
  Dim shp As Shape

    Set shp = ActiveWindow.Selection.ShapeRange(1)
    shp.Rotation = shp.Rotation + 2  

End Sub

Answer 2

Shape对象有一系列Increment属性可供选择。

注意：从MSDN复制的说明

IncrementRotation( Increment )

  

＆＃34;指定水平旋转的形状，以度为单位。正值顺时针旋转形状;负值将其逆时针旋转。＆＃34;

IncrementRotationX( Increment )

  

＆＃34;指定要改变围绕x轴的形状旋转的程度（以度为单位）。可以是一个价值？ 90到90.正值使形状向上倾斜;负值会使其向下倾斜。＆＃34;

IncrementRotationY( Increment )

  

＆＃34;指定围绕y轴的形状旋转多少（以度为单位）。可以是一个价值？ 90到90.正值使形状向左倾斜;负值将其向右倾斜。＆＃34;

Public Sub RotateCW2()
  Dim shp As Shape

    Set shp = ActiveWindow.Selection.ShapeRange(1)
    shp.Rotate = shp.IncrementRotation 2

End Sub

Answer 3

经过混合和匹配之后，我认为这个有效。

default=fields.Datetime.now

它按预期工作。谢谢你的回答。