VBA msoShapeBlockArcで扇形の幅を指定する方法は？

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

No.1 回答者： enunokokoro 回答日時： 2015/10/16 14:17

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/ …

この回答へのお礼

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

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