![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.2ベストアンサー
- 回答日時:
図形の名前を確認し必要なら変更するマクロです。
Sub ShNameChg()
Dim msg, N, shName
msg = "新しい名前を入力してください。"
N = ActiveWindow.Selection.ShapeRange.Name
On Error Resume Next
shName = InputBox(msg, "現在の名前: " & N)
ActiveWindow.Selection.ShapeRange.Name = shName
End Sub
> マクロの記録を使わずに名前を確認する事はできますか?
できないと思います。
不便ですね。
misatoannaさん回答ありがとうございます。
今まで、マクロの記録で図形の名前を調べてから、それを動かすマクロを作っていました。名前も質問に書いたように「Rectangle 88」などわかりにくいものばかりでした。
それに比べ、これは便利ですね。名前を好きに決められるのでコードもわかりやすくなりました。
改めてお礼を申し上げます、ありがとうございました。
No.1
- 回答日時:
PowerPoint VBAは経験がありませんが、
エクセルでは下記は走りました。
Sub test02()
MsgBox Worksheets("Sheet1").DrawingObjects(1).Name
MsgBox Worksheets("Sheet1").DrawingObjects(2).Name
Worksheets("Sheet1").Shapes("Rectangle 2").Select
Selection.Name = "四角1"
End Sub
類推で
上記をご参考に、Nameメソッドを試してみてください。
DrawingObjects(1は保証の限りにあらず。
ダメの場合はすみません。
imogasiさん、回答ありがとうございます。
少しためしたところ、
MsgBox ActiveWindow.Selection.ShapeRange.Name
で選択している図形の名前を取得できました。これはとても便利です、もう一つの回答と組み合わせて、よいプログラムができました。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
エクセル ボタンに設定したマク...
-
エクセルで、「いいね」のよう...
-
Excelのマクロでボタンを押すと...
-
エクセルの、記録を終了したマ...
-
Excelで、マクロが含まれ...
-
エクセル マクロ名にブック名...
-
エクセルで明日の日付を表示す...
-
Wordのマクロで選択中の行番号...
-
エクセルの表を複数枚印刷した...
-
複数のマクロボタンをまとめて...
-
パソコンの買い替えとデータ移行
-
マクロ実行ボタンを自動削除したい
-
Excelマクロで、稼働中のマクロ...
-
エクセルでマクロ(Excel 4.0)...
-
エクセル ボタンを押すと色が変...
-
Private Sub Workbook_open()で...
-
Ctrl+Zが使えない
-
なぜマクロの記録がなくなって...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
エクセル ボタンに設定したマク...
-
Excelのマクロでボタンを押すと...
-
エクセルの、記録を終了したマ...
-
複数のマクロボタンをまとめて...
-
エクセル マクロ名にブック名...
-
エクセルで、「いいね」のよう...
-
エクセルの表を複数枚印刷した...
-
Excelマクロで、稼働中のマクロ...
-
エクセルでマクロ(Excel 4.0)...
-
エクセルマクロで、別のブック...
-
マクロをマクロを使ってコピー...
-
エクセルで明日の日付を表示す...
-
Excelのマクロ名の並び順の法則...
-
(Excel VBA)シートコピー時マ...
-
Excelマクロをバックグラウンド...
-
Ctrl+Zが使えない
-
別シートのマクロボタンをマク...
-
LDPlayerのマクロの編集方法を...
おすすめ情報