刚刚从 Windows 切换到 Mac,在 Windows 上的 ppt 中,我有一个插件,允许我复制对象的属性(包括大小和/或位置)并将其粘贴到另一个对象,有点像高级格式画家,可以切换您的属性我想复制。
我不再有这个插件,但我非常想创建一个简单的宏来复制大小和位置。这有可能吗?如果是的话,您能否提供代码或向我指出一个可以自学的资源?
我花了大约 2 个小时搜索,但找不到 Office Mac 兼容的解决方案 - 所以这是我最后的希望!
这是一个有效的示例。您可以对其进行调整以满足您的特定需求。
Sub CopySizeAndPosition()
' Usage: Select two shapes. The size and position of
' the first shape selected will be copied to the second.
Dim w As Double
Dim h As Double
Dim l As Double
Dim t As Double
With ActiveWindow.Selection.ShapeRange(1)
w = .Width
h = .Height
l = .Left
t = .Top
End With
With ActiveWindow.Selection.ShapeRange(2)
.Width = w
.Height = h
.Left = l
.Top = t
End With
End Sub
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)