Макрос в Powerpoint 2016 не работает - PullRequest
Новая
       10

Макрос в Powerpoint 2016 не работает

0 голосов
/ 13 мая 2018

У меня есть макрос, который работал раньше в powerpoint 2016. Но через некоторое время он не сработал. Я хочу использовать макрос для поворота изображения на 0,1 градуса. (Обычно вы можете вращаться только на 1,0 градус.) Это код макроса, который я нашел здесь : 

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

Я выполнил макрос. Я выбираю формат изображения - (меню Arrange :) Повернуть - Дополнительные параметры поворота Я пробовал «0,1» и «0,1». Но оно автоматически округляется до целого числа.

Потому что он работал до того, как я думаю, что макрос не включен. Я не могу думать ни о чем другом, что изменилось со времени предыдущего раза, когда это работало. Поэтому я попытался в настройках макроса Trust Center «Включить все макросы». Я также подписал макрос цифровой подписью.

У меня не было сообщения об ошибке.

1 Ответ

0 голосов
/ 14 мая 2018

Проблема в том, что вы ищете величину вращения в том же диалоговом окне, которое не может отображать ничего, кроме целых чисел.

После запуска макроса запустите: 

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