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も見ています
-
ハマっている「お菓子」を教えて!
この世には、おいしいお菓子がありすぎて……。 次何を食べたらいいか迷っています。 みなさんが今、ハマっている「お菓子」を教えてください!
-
家・車以外で、人生で一番奮発した買い物
どんなものにお金をかけるかは人それぞれの価値観ですが、 誰もが一度は清水の舞台から飛び降りる覚悟で、ちょっと贅沢な買い物をしたことがあるはず。
-
ホテルを選ぶとき、これだけは譲れない条件TOP3は?
ホテルを探す時、予約サイトで希望条件の絞り込みができる便利な世の中。 あなたは宿泊先を決めるとき「これだけは譲れない」と思う条件TOP3を教えてください。
-
【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
【お題】 ・買ったばかりの自転車を分解してひと言
-
架空の映画のネタバレレビュー
映画のCMを見ていると、やたら感動している人が興奮で感想を話していますよね。 思わずストーリーが気になってしまう架空の感動レビューを教えて下さい!
-
パワーポイントのVBAでテキストボックスに値を変更させたいです
Visual Basic(VBA)
-
PowerpointVBAで指定のShapeオブジェクトを削除したい。
Visual Basic(VBA)
-
ExcelVBAにて既に開かれているPowerpointをアクティブにするには?
Excel(エクセル)
-
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
LDPlayerのマクロの編集方法を...
-
Excel マクロの編集がグレーに...
-
エクセル ボタンに設定したマク...
-
Excelのマクロでボタンを押すと...
-
複数のマクロボタンをまとめて...
-
エクセルの表を複数枚印刷した...
-
Excelのマクロでフリーフォーム...
-
マクロ 2行ごとの並び替えについて
-
excel2003 マクロボタンが押せない
-
ハイパーリンク設定をマクロに...
-
VBAで有効なURLのみ抽出する方法
-
マクロ ハイパーリンク
-
ExcelVBAでShowDatasFormがエラ...
-
秀丸で、行順を逆にしたい
-
エクセル マクロ名にブック名...
-
スプレッドシートの文字の色判定
-
Excelマクロをバックグラウンド...
-
Excelマクロで、稼働中のマクロ...
-
word2019で原稿用紙換算枚数の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
エクセル ボタンに設定したマク...
-
Excelのマクロでボタンを押すと...
-
エクセルで、「いいね」のよう...
-
エクセル マクロ名にブック名...
-
エクセルの表を複数枚印刷した...
-
エクセルの、記録を終了したマ...
-
Excelマクロで、稼働中のマクロ...
-
複数のマクロボタンをまとめて...
-
エクセルマクロで、別のブック...
-
Excelのマクロ名の並び順の法則...
-
エクセルでマクロ(Excel 4.0)...
-
エクセルで明日の日付を表示す...
-
(Excel VBA)シートコピー時マ...
-
excel2003 マクロボタンが押せない
-
Excelマクロをバックグラウンド...
-
Excel:マクロを消す方法教えて...
-
Ctrl+Zが使えない
-
別シートのマクロボタンをマク...
おすすめ情報