我有一个 PowerPoint,每张幻灯片上都有一个链接图像。我必须定期更新这些图像,但当我这样做时,每个链接图像的大小格式都会发生变化。有人能告诉我一种简单的方法,不用宏,同时格式化每张幻灯片上所有这些链接图像的大小(每个图像的大小都相同)吗?
答案1
这是我使用的宏:
Dim w As Double
Dim h As Double
Dim l As Double
Dim t As Double
Sub StoreDetails()
With ActiveWindow.Selection.ShapeRange(1)
w = .Width
h = .Height
l = .Left
t = .Top
End With
End Sub
Sub OutputDetails()
With ActiveWindow.Selection.ShapeRange(1)
.Width = w
.Height = h
.Left = l
.Top = t
End With
End Sub
它正确配置了我的图像“高度”和“对齐”,但宽度没有获得正确的值。有人能告诉我为什么吗?