PowerPoint 2016微调图片旋转的宏失效问题求助

首先，你的宏逻辑本身是没问题的，但失效大概率是因为On Error Resume Next掩盖了执行过程中的错误，再加上PowerPoint UI的显示误导，让你误以为宏没生效。咱们一步步排查和解决：

1. 先排查宏执行的错误原因 #

原来的代码里On Error Resume Next会让程序遇到错误时直接跳过，比如你没选中形状、选中了多个形状，或者选中的是占位符而非独立形状，宏都会静默失败，你完全看不到提示。

先修改宏，去掉错误忽略，加上明确的校验和提示：

Sub littleRot()
    Dim oshp As Shape
    
    ' 检查是否选中了单个形状
    If ActiveWindow.Selection.Type <> ppSelectionShapes Then
        MsgBox "请先选中单个可旋转的形状！", vbExclamation
        Exit Sub
    End If
    If ActiveWindow.Selection.ShapeRange.Count > 1 Then
        MsgBox "请只选中一个形状！", vbExclamation
        Exit Sub
    End If
    
    Set oshp = ActiveWindow.Selection.ShapeRange(1)
    oshp.Rotation = oshp.Rotation + 0.1
    
    ' 弹出当前精确旋转值，确认修改生效
    MsgBox "当前形状旋转值：" & oshp.Rotation, vbInformation
End Sub

运行这个修改后的宏，就能明确知道是操作问题（没选对对象）还是其他问题。

2. 关于UI显示取整的误导 #

你手动在「更多旋转选项」输入0.1时数值被取整，这是PowerPoint UI的设计限制——这个输入框会自动将小数取整为1度的倍数，但通过VBA设置的Rotation属性是支持精确小数的。

刚才修改后的宏会弹出当前旋转值，你会看到数值确实增加了0.1，只是UI显示的是取整后的结果而已，实际形状的旋转角度已经是精确值了。

3. 宏启用的验证 #

既然你已经在信任中心启用所有宏并添加了数字签名，宏的执行权限应该是没问题的。如果修改后的宏能正常弹出提示，说明宏已经正常启用；如果还是没反应，你可以检查：

• 宏是否真的保存在当前演示文稿中（不是其他文件）
• 运行宏时是否选中了正确的对象（比如不要选占位符里的图片，要先把图片转换为独立形状）

内容的提问来源于stack exchange，提问作者Peter van Tilburg