Sub setPlotArea()
With ActivePresentation.Slides(2).Shapes(1).Chart.PlotArea
.InsideHeight = 110.2545648225413
End With
End Sub
Каждый раз, когда я применяю приведенный выше код, я получаю 110. Десятичные цифры теряются. Я сделал достаточно поиска в Google, чтобы решить эту проблему, но не смог решить. Дайте мне знать, если кто-нибудь может мне с этим помочь.
Спасибо