|
▼yuu1 さん:
>こんにちは。
>用意した矢印名を"Line 1"として、
> ActiveSheet.Shapes("Line 1").Select
> Application.Dialogs(xlDialogPatterns).Show
すばらしい!
ありがとうございます。
ActiveSheet.Shapes("Line 1").Dialogs(xlDialogPatterns).Show
こんな感じでやってみたけど出来なかったので、ここで質問してみたのですが、Selectで出来るようになるんですね。
この場合、Selectしているので当然ですが、矢印が選択状態になり、矢印の両端に小さい四角が表示されます。
これだと、シートやオブジェクトを保護した状態でも、マクロ実行後に小さい四角をドラッグすると、矢印の形を変えることが出来てしまいます。
なので、矢印を選択状態にしないで、ダイアログを表示する方法はないものでしょうか?
まぁ、マクロの最後で、いずれかのセルをSelectして、矢印の選択状態を解除すれば、解消される問題なのですが。
あと、矢印をダブルクリックしてマクロを実行させることはできるのでしょうか?
今のところ、マクロ実行用のボタンを用意する予定なのですが、もし矢印のダブルクリックでマクロを実行させることができるなら、そうしたいと思っています。
よろしくお願いします。
|
|