|
▼B_BOSS さん:
こんばんは。
> ワークシート上のセルの幅と、オートシェイプをVBAで作成しようとすると、
> サイズを指定する数値とセルの幅を指定する数値が合いません。
> セルの幅、ピクセルで表示されますが、下のコードのオートシェイプのサイズを指定する
> 数値は単位は何になるのでしょうか?
>
> セルの罫線を利用してグラフを作成したいのですが・・・?
> 罫線とオートシェイプのサイズを合わせる方法ってありますか?
> Shapes.AddShape(msoShapeRectangle, 200, 100, 50, 5).Select
オートシェイプをセルの大きさに合わせる方法が分かればよいということでしょうか?
'=======================================================
Sub test()
With ActiveCell
ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
.Left, .Top, .Width, .Height).Select
End With
End Sub
↑は、アクティブセルの大きさに合わせてオートシェイプを作成しています。
|
|