Powerpoint 2016 中的宏不起作用

Question

我有一个以前在 powerpoint 2016 中工作过的宏。但一段时间后它没有工作。我想使用宏将图片旋转 0.1 度。（通常只能旋转 1.0 度。）这是我找到的宏代码 here:

Sub littleRot()
    Dim oshp As Shape
    On Error Resume Next
    Set oshp = ActiveWindow.Selection.ShapeRange(1)
    oshp.Rotation = oshp.Rotation + 0.1
End Sub

我做了'运行'这个宏。我 select 图片格式 - （菜单排列:) 旋转 - 更多旋转选项我试过“0.1”和“0,1”。但它会自动舍入为整数。

因为在我认为宏未启用之前它已经起作用了。自上次工作以来，我想不出还有什么变化。所以我尝试在信任中心宏设置中“启用所有宏”。我还对宏进行了数字签名。

我没有收到错误消息。

Answer 1

问题是您在同一对话框中查找旋转量，该对话框只能显示整数。

运行在你的宏之后，运行这个：

Sub WhatUtterRot()
    Dim oshp As Shape
    Set oshp = ActiveWindow.Selection.ShapeRange(1)
    MsgBox oshp.Rotation
End Sub

Powerpoint 2016 中的宏不起作用

Macro in Powerpoint 2016 is not working

powerpoint

vba