PowerPoint VBA宏求助：选中形状旋转递增2度功能失效

嘿，作为PPT VBA新手，你已经找对核心思路啦！你的代码逻辑没问题，但踩了个PPT对象模型的小坑——PPT里形状的旋转角度属性是Rotation，而Rotate是一个方法（用来直接执行旋转动作，不是读取/修改当前角度的属性），所以原代码会因为属性调用错误而失效。

给你修正后的完整宏代码，还加了错误处理，避免没选中形状时程序崩溃：

Public Sub RotateCW2()
    ' 先检查是否选中了有效形状
    If ActiveWindow.Selection.Type <> ppSelectionShapes Then
        MsgBox "请先选中一个形状哦！", vbExclamation
        Exit Sub
    End If
    
    Dim shp As Shape
    Set shp = ActiveWindow.Selection.ShapeRange(1)
    
    ' 使用Rotation属性修改旋转角度，每次递增2度
    shp.Rotation = shp.Rotation + 2
End Sub

代码细节说明： #

• 新增选中状态检查：如果没选中形状、选中的是文本或其他对象，会弹出提示，避免运行报错
• 替换shp.Rotate为shp.Rotation：这是PPT形状存储当前旋转角度的属性，支持读取和修改操作
• 保留了你原本的需求逻辑：每次按下快捷键，选中的形状顺时针递增旋转2度

绑定快捷键的步骤再提一句：打开PPT的「开发工具」选项卡，点击「宏」，选中这个宏后点击「选项」，设置你习惯的快捷键组合（比如Ctrl+Shift+R）就可以啦。

内容的提问来源于stack exchange，提问作者Bryan Hamilton