答案1
这是一个相当令人吃惊的遗漏,不是吗?
一点 VBA 可能会有帮助:
Sub SizePlotArea()
Dim oSld As Slide
Dim oCht As Chart
Set oCht = ActiveWindow.Selection.ShapeRange(1).Chart
With oCht.PlotArea
' Edit these values as needed
' Change the following lines to e.g. Msgbox .Left etc
' to get the values of the chart you want to match others TO
.Left = 50
.Top = 50
.Height = 400
.Width = 400
End With
End Sub
注意:.Left、.Top 等的尺寸以点为单位,PPT 将此单位用于大多数可编程功能。每英寸 72 点。
如果你愿意,你可以这样做:
.Height = 72 * 5.25
将高度设置为 5.25 英寸。