電子書籍の厳選無料作品が豊富!

お世話になります。
エクセルのVBAで扇形の図を作成しようとしています。
msoShapeBlockArcのitem(2)をドラッグすると、角度と幅(外側弧と内側弧に挟まれた部分)が変更できるのですが、この幅をプログラムから変更する方法がわかる方、ご教授ください。
VBAのバージョンは、Retail7.0.1637となっています。

A 回答 (1件)

Adjustments オブジェクトで調整できます。



Adjustments オブジェクト (Excel)
https://msdn.microsoft.com/ja-jp/library/office/ …

Sub Test()
 With ActiveCell
  With ActiveSheet.Shapes.AddShape(msoShapeBlockArc, .Left, .Top, 72#, 72#)
   .Adjustments.Item(1) = 0#  ' 外側の角度での調整値
   .Adjustments.Item(2) = 270# ' 内側の角度での調整値
   .Adjustments.Item(3) = 0.25  ' 内側の幅での調整値
'   .Flip msoFlipVertical      ' 垂直方向での反転
  End With
 End With
End

Adjustments.Item(1)やAdjustments.Item(2)は角度で指定します。
Adjustments.Item(3)は、円の直径を基準の1.0として、半径が最大値に
なるので、0.5までの0より大きい小数点で指定します。

Shape.Flip メソッド (Excel)
https://msdn.microsoft.com/ja-jp/library/office/ …
    • good
    • 0
この回答へのお礼

ありがとうございました。解決しました。
1個の調整ハンドルに2個のItemがぶらさがっていたんですね。
おかげさまで、ぐっすり眠れそうです。

お礼日時:2015/10/16 15:34

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!