• 締切済み

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

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

回答 全件
いわゆるエクセルの組み込みダイアログには無いようです。
オートシェープの名前か番号を捕まえられたら 以下でできるようです。 …

みんなの回答

  • BLUEPIXY
  • ベストアンサー率50% (3003/5914)
回答No.2

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

jimmy_makihara
質問者

お礼

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

jimmy_makihara
質問者

補足

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

全文を見る
すると、全ての回答が全文表示されます。
  • BLUEPIXY
  • ベストアンサー率50% (3003/5914)
回答No.1

オートシェープの名前か番号を捕まえられたら 以下でできるようです。 ActiveSheet.Shapes("Rectangle 1").Application.Dialogs(xlDialogPatterns).Show

jimmy_makihara
質問者

お礼

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

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • 「プリンタの設定」ダイアログボックスのプリンタを指定したい。

    Excel VBAにて以下のコードを書き，接続されているプリンタ一覧の表示と設定は出来るのですが、のダイアログに表示されるプリンタを指定した物だけにしたいのです。 Application.Dialogs(xlDialogPrinterSetup).Show ダイアログの組み込み定数「xlDialogPrinterSetup」は引数でプリンタ名を持てる筈なのですが、どう書いてもエラーになってしまいます。 Application.Dialogs(xlDialogPrinterSetup).Show arg1:="プリンタ名" Application.Dialogs(xlDialogPrinterSetup).Show ("プリンタ名") Application.Dialogs(xlDialogPrinterSetup).Show(arg1:="プリンタ名") やりたい事は接続されているマシンの一覧の中から一つのプリンタを選択肢、それだけの設定ダイアログを出したいのです。

  • オートシェイプの書式設定…。

    エクセルでオートシェイプの書式設定で文字の配置の変更は横しか出来ないのでしょうか？どうぞ宜しくお願いしますm(_　_)m

  • エクセル２００３オートシェイプの書式について

    エクセル２００３でテキストボックスの書式で’線なし’とし、且つオートシェイプでは線あり（当然ですが）とする初期設定は可能でしょうか？ テキストボックス使用が多く（ほとんど、線なし設定です）線なしを規定値にすると、オートシェイプも’線なし’となってしまいます。 もちろん、線なしテキストボックスをコピーして使えばいいことなんですが．．．。 宜しくお願いします。

  • オートシェイプのテキストボックスの空白設定について

    ワードの2003を使っています。 オートシェイプのテキストボックスの空白の書式設定について、以前前までミリ単位で調整ができていたのですが、いつのまにか「ｐｘ」単位での調整となって、思うように空白調整ができなくて困っています。 （今は、できる限り空白をゼロに近い形で調整したいと考えています） そこで、依然私が使っていたように、オートシェイプのテキストボックスの空白調整の単位をミリ単位に変える方法を教えてください。 以上、よろしくお願い申し上げます。

  • エクセルのオートシェイプの線の色が・・・

    エクセルのオートシェイプのテキストボックス等の「書式設定」の「色と線」の初期設定を変えるにはどうすればいいのでしょうか？ つまり、いつも使う色やサイズは「黒」の「0.75pt」なのに最初はオレンジの「2.25pt」に勝手になるので、いちいち変更しないといけないんです。 誰か教えて下さい。

  • エクセルVBAの「組み込みダイアログボックス」の使用法？

    いつもありがとうございます。 組み込みダイアログボックスについて教えてください。 エクセルのシート内容をCSV形式で保存する場合、組み込みダイアログボックスを使い、下記のマクロでうまく行きました。 Sub CSV保存() '～略～ Application.Dialogs(xlDialogSaveAs).Show ARG2:=6 '～略～ End Sub 試した結果、上記の組み込みダイローグのファイルの種類のデフォルトは ARG2:=の次の値が６でcsv、１でエクセルになるようでした。 次に、エクセルを開いた状態でCSVファイルを開こうと思い、同様に組み込みダイアローグを使用するため下記のマクロを作りました。ところがうまくいきません。 Sub CSVdata取得() Application.Dialogs(xlDialogOpen).Show ARG2:=6 End Sub ・・・・と記述するとエラーになります。 この場合、どうも ARG2:=6の６の数字のところが４以上はエラーとなるようです。 ARG2:=の次の値を１～３にするとエラーにはなりませんが、デフォルトはいずれもエクセルでした。 最初からファイルの種類をCSV形式にするにはどう記述したらよいのでしょうか？ どうかお助けください。

  • オートシェイプやテキストボックスの書式（色や線）罫線の太さが、

    オートシェイプやテキストボックスの書式（色や線）罫線の太さが、 次に作成するとき継続されて困っています。 色、線を継続しない設定方法を教えてください。 WORD 2007 WindowsXP（Professional）Pack3

  • エクセル。オートシェイプ間で書式のみをコピーできませんか？

    エクセル2000を使っています。 オートシェイプの書式設定について質問です。 既にあるオートシェイプＡの書式を、同じく既にある オートシェイプＢの書式に一致させる作業をしたいと 考えています。 Ａが新たに作成されるものであれば、Ｂの書式を 「オートシェイプの規定値に設定」することにより、 一致させられますが、Ａは既存なのでこれでは 反映させられません。 Ａが一つや二つくらいならば、新たに書き直しても 良いのですが、沢山あるので、全部やり直しは きついのです。 セルの書式ならば、 「形式を選択して貼り付け」→「書式コピー」 で、書式だけをコピーできるのですが・・・ 同じようにオートシェイプ間で書式をコピーする 方法はないものでしょうか。？

  • オートシェイプの色と線の項目で色が表示されません。

    現在ＸＰを使用しています。 オートシェイプで矢印などを貼り付けてもスクロールして矢印画面が隠れた後その画面までまた戻ると矢印が表示されない状態になってしまいます。 おかしいと思い色々調べているうちにオートシェイプの書式設定画面の色と線内の塗りつぶし、色選択画面でそれぞれ色を設定するとその色がボックス内に表示されると思うのですがどの色を設定しても白のまま変わりません。 セルの矢印は指定した色になるのですが上記した通り画面から少しでも外れると見えなくなってしまいます。 また不思議なことにスキャンで取り込んだ画像もエクセルへ挿入するとまったく画像が表示されません。 わかりずらい説明だと思いますがアドバイスいただければと思います。 よろしくお願いします。

  • Excel2000：「セルの書式設定」ダイアログが表示されない

    お世話になっております Excel2000を使用しております。 あるセルに対し、右クリックメニュー「セルの書式設定」を選択したのですが、何も表示されません。 ・シート、ブックの保護はかけられておりません。 ・また、Excel2002では表示されます。 ・ファイルはExcel2000形式です。 ・Application.Dialogs( xlDialogAlignment ).Show 　などで無理やり出すことは出来ました。 この状態で「セルの書式設定」ダイアログが表示されない原因は どのようなところにございますでしょうか ご教示の程、何卒よろしくお願いいたします。

PDF出力がメニューバーに表示されない
このQ&Aのポイント
  • PDF出力がメニューバーに表示されない問題について
  • 購入製品パーソナル編集長 Ver.14を使用している際に、PDF出力がメニューバーに表示されないという問題が発生しています。
  • Windows11を使用している環境で上記の問題が発生し、Q&Aを参考にPDFドライバのインストールやソフトの再インストールを試みましたが、改善されません。
回答を見る

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する