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

我做了'运行'宏。我选择图片格式 - （菜单安排:)旋转 - 更多旋转选项我试过'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中的宏无效

1 个答案: