SmartArtNodeの幅または高さを変更する

Question

SmartArtNodeの幅または高さを変更することはできますか？

次のコードは、すべてでは動作しません：

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

を不思議なシェイプの幅を変更した場合、それは動作します。 SmartArtNodesのShape Objectsをリサイズすることができないのはわかりません。私が知っている唯一の方法は、メソッドを大きくしたり小さくしたりすることですが、このメソッドを使うと、形状の幅/高さを変更することはできません。

上記のコードを使用すると、ランタイムエラー「オブジェクトはこのアクションをサポートしていません（エラー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