Пусть код работает после выхода PowerPoint из презентации - PullRequest
Новая
       50

Пусть код работает после выхода PowerPoint из презентации

0 голосов
/ 01 мая 2020

Увеличенная диаграмма с Powerpoint VBA. После увеличения графика c мне нужен код, чтобы вернуться к предыдущему.

пример: 1

Ниже приведена версия перед запуском презентации.

введите описание изображения здесь

пример: 2 После запуска презентации, когда я нажимаю на диаграмму периодов, она увеличивается с помощью кода.

введите описание изображения здесь

Пример: 3 Когда вы покидаете презентацию, она приходит к окончательной форме.

введите описание изображения здесь

Пример: 4 Позвольте мне вернуться к первому автомату c начальное состояние после закрытия презентации, которую я хочу.

введите описание изображения здесь

Файл Powerpoint enter описание ссылки здесь

1 Ответ

0 голосов
/ 01 мая 2020 
Sub Yakınlaştır_1()
i = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex

If ActivePresentation.Slides(i).Shapes("dnm").Width > 25 * 28.34646 Then

ActivePresentation.Slides(i).Shapes("dnm").Top = 11.4 * 28.34646
ActivePresentation.Slides(i).Shapes("dnm").Left = 2.47 * 28.34646
ActivePresentation.Slides(i).Shapes("dnm").Height = 6.12 * 28.34646
ActivePresentation.Slides(i).Shapes("dnm").Width = 12.71 * 28.34646


Else

ActivePresentation.Slides(i).Shapes("dnm").Top = 1.86 * 28.34646
ActivePresentation.Slides(i).Shapes("dnm").Left = 1.15 * 28.34646
ActivePresentation.Slides(i).Shapes("dnm").Height = 15.33 * 28.34646
ActivePresentation.Slides(i).Shapes("dnm").Width = 31.57 * 28.34646


ActivePresentation.Slides(i).Shapes("hehe").ZOrder msoBringToFront
ActivePresentation.Slides(i).Shapes("dnm").ZOrder msoBringToFront
End If

End Sub

Sub Yakınlaştır_2()
i = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex

If ActivePresentation.Slides(i).Shapes("İl").Width > 25 * 28.34646 Then

ActivePresentation.Slides(i).Shapes("İl").Top = 11.4 * 28.34646
ActivePresentation.Slides(i).Shapes("İl").Left = 19.9 * 28.34646
ActivePresentation.Slides(i).Shapes("İl").Height = 6.19 * 28.34646
ActivePresentation.Slides(i).Shapes("İl").Width = 11.64 * 28.34646

Else

ActivePresentation.Slides(i).Shapes("İl").Top = 1.32 * 28.34646
ActivePresentation.Slides(i).Shapes("İl").Left = 1.13 * 28.34646
ActivePresentation.Slides(i).Shapes("İl").Height = 16.31 * 28.34646
ActivePresentation.Slides(i).Shapes("İl").Width = 30.7 * 28.34646


ActivePresentation.Slides(i).Shapes("hehe").ZOrder msoBringToFront
ActivePresentation.Slides(i).Shapes("İl").ZOrder msoBringToFront
End If

End Sub
...