vba - 更改 SmartArtNode 的宽度或高度

Question

是否可以更改 SmartArtNode 的宽度或高度？

以下代码根本不起作用:

' mySmartArt is a SmartArt Object
mySmartArt.AllNodes.Item(1).Shapes.Width = 4

奇怪的是，如果你改变形状的宽度，它就会起作用。所以我不知道为什么 SmartArtNodes 的形状对象根本无法调整大小。我知道的唯一方法是使用更大或更小的方法，但是使用这种方法不可能只改变形状的宽度/高度。

如果我使用上面的代码，我总是会收到运行时错误“对象不支持此操作(错误445)”，这很奇怪，因为通过Excel的GUI我可以更改单个对象的宽度和高度SmartArt 的节点没有问题。因此，为什么不能通过 VBA 更改它是没有任何意义的。

有人知道如何解决这个问题吗？

Answer 1

像这样吗？

Sub Macro1()

Dim Sma As Shape
Set Sma = ActiveSheet.Shapes.AddSmartArt(Application.SmartArtLayouts(2))

With Sma
    .ScaleHeight 1.5, msoFalse, msoScaleFromBottomRight
    .ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
End With

End Sub