オートシェイプの書式設定(線と色)の組み込みダイアログボックスを表示することは可能？

オートシェイプの書式設定の組み込みダイアログボックスをEXCEL VBAから表示させることは可能でしょうか？
Application.Dialogs(xlDialogPatterns).Show
を使っても、セルやグラフ系のオブジェクトの書式設定はできるようですが、オートシェイプの書式となると、輪郭線の色や太さ(ポイント単位)が指定できないようです。
オートシェイプの書式設定はExcelの組み込みダイアログボックスに入っていないのでしょうか。

No.2 ベストアンサー 回答者： BLUEPIXY 回答日時： 2004/11/16 11:30

いわゆるエクセルの組み込みダイアログには無いようです。

この回答への補足

結局、対象のオートシェイプを選択しておいて、
Sendkeys "^(1)" (ショートカットキーのCtrl + 1)
で対処することにしました。

補足日時：2004/11/22 08:54

この回答へのお礼

ありがとうございました。どうやら、ないようですね。
Word VBAだと
Application.Dialogs(wdDialogFormatDrawingObject).Show
で、ズバリ出せるのを確認しましたが、Excelからは使えないようですね。

お礼日時：2004/11/16 13:51

No.1 回答者： BLUEPIXY 回答日時： 2004/11/15 19:07

オートシェープの名前か番号を捕まえられたら

以下でできるようです。
ActiveSheet.Shapes("Rectangle 1").Application.Dialogs(xlDialogPatterns).Show

この回答へのお礼

早速のご回答ありがとうございます。
この方法を試してみました。確かに、「オートシェイプの書式設定」というタイトルのダイアログボックスは表示されるのですが、直接当該のオートシェイプを右クリックしてコンテキストメニューから表示するメニューとは異なるもので、輪郭線の太さをポイント単位で指定することができませんし、輪郭線の色を指定しても当該オートシェイプに反映されません。直接当該のオートシェイプを右クリックしてコンテキストメニューから表示するメニューと同じダイアログボックスを出す方法があればその方法を、また、その方法がないことが明らかならばそのむね、ご教示願えれば幸いです。ちなみにバージョンはExcel2002(OfficeXP)です。

お礼日時：2004/11/16 10:51