Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

38142 / 76732

←次へ　｜　前へ→


	【43733】Re:矢印(オートシェイプ)の書式設定ダイ...

ひげくま - 06/10/24(火) 9:29 -


	引用なし

	パスワード

▼yuu1 さん：
>こんにちは。
>用意した矢印名を"Line 1"として、
>　ActiveSheet.Shapes("Line 1").Select
>　Application.Dialogs(xlDialogPatterns).Show

すばらしい！
ありがとうございます。

ActiveSheet.Shapes("Line 1").Dialogs(xlDialogPatterns).Show

こんな感じでやってみたけど出来なかったので、ここで質問してみたのですが、Selectで出来るようになるんですね。

この場合、Selectしているので当然ですが、矢印が選択状態になり、矢印の両端に小さい四角が表示されます。
これだと、シートやオブジェクトを保護した状態でも、マクロ実行後に小さい四角をドラッグすると、矢印の形を変えることが出来てしまいます。
なので、矢印を選択状態にしないで、ダイアログを表示する方法はないものでしょうか？
まぁ、マクロの最後で、いずれかのセルをSelectして、矢印の選択状態を解除すれば、解消される問題なのですが。

あと、矢印をダブルクリックしてマクロを実行させることはできるのでしょうか？
今のところ、マクロ実行用のボタンを用意する予定なのですが、もし矢印のダブルクリックでマクロを実行させることができるなら、そうしたいと思っています。

よろしくお願いします。

0 hits

▼

【43695】矢印(オートシェイプ)の書式設定ダイアログ ひげくま 06/10/23(月) 11:25