No.2
- 回答日時:
私はShapeのRectangle 1でやったのですが
シートSheet1に図形の長方形を1つ作っておく。
標準モジュールに
Sub Macro4()
Worksheets("Sheet1").Shapes("Rectangle 1").Copy
'Selection.Copy
ActiveSheet.Paste
Selection.Name = "aaa"
End Sub
を実行する。
コピーして貼り付けた直後の段階で、その図形がSelectされているので、間髪を入れず(他の操作が入らない段階で、ただプログラム実行中は普通は入らない)Selectionを使って取り出し(=オブジェクトを掴んで)、名前をつけてしまう。
ーー
確認用に
標準モジュールに
Sub test01()
For i = 1 To Worksheets("Sheet1").DrawingObjects.Count
MsgBox Worksheets("Sheet1").DrawingObjects(i).Name
Next i
End Sub
を作って、前記の貼り付け実行後、こちらを実行すると、「指定した名前で、長方形が増えている」ことがわかると思う。
ーーー
この辺は私にとっては難しい(すっきりしない)点で、別のコードの書き方があるようにも思うが、今すぐは出てこない。
エクセル・バージョンによっても変わる恐れがあるように思う。
すばやい回答有難う御座います。
確認用も分かりやすく参考になりました。
<<間髪を入れずSelectionを使って取り出し名前をつけてしまう。
なるほど、No1さんと同様ですか。作っては消すということを繰り返すようなエクセルシートだと
コピーした瞬間にできるオブジェクト名の数字がどんどん膨れ上がりますね・・・
No.1ベストアンサー
- 回答日時:
バージョン幾つのエクセルを使っているのかによって,正しいマクロの書きぶりが変わる場合があります。
ご相談投稿時には,ご利用のソフト姪は元よりご利用のソフトのバージョンまでしっかり明記することを憶えてください。
>あらたにコピーされた図形の名前を設定できますか。
モチロンできます。
基本的なコツは,貼り付けた(新たな画像がシート上に発生した)直後にさっさと名前を付けてしまうことです。
作成例:
sub macro1()
activesheet.shapes("Picture 1").copy
range("A10").select
activesheet.paste
selection.name = "Pict2"
end sub
#但し書き:今回のご相談とは全く無関係の部分で
ご相談のようなヤリタイ事で,現実に大概問題になるのは「一体どんな名前にしたらイイ」のか,少なくともエラーが起きないマクロを書けるかという部分です。
もうちょっと作業を進めた後,必要に応じてまた別途ご相談を投稿してみてください。
すばやい回答有難う御座います。
<<直後にさっさと名前を付けてしまうことです。
なるほど、作った直後のセレクトされている内なら出来るということですね。
できるオブジェクトの名前を直接つけるのはできないんですね。
有難う御座います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルvbaでの図形のカット(コピー)ペーストについて
Excel(エクセル)
-
エクセルVBAで画像を貼り付ける座標設定方法は?
PowerPoint(パワーポイント)
-
エクセルVBA 画像を貼り付けるセル位置を指定する方法
Excel(エクセル)
-
-
4
特定の名前のオートシェイプの有無を知りたい(エクセルVBA)
Excel(エクセル)
-
5
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
6
エクセルVBA 図形の選択法は?
Visual Basic(VBA)
-
7
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
9
VBA 同じ名前のオブジェクトを選択したいのですが
Visual Basic(VBA)
-
10
エクセルVBAでセル番地を指定してオブジェクト名取得
Excel(エクセル)
-
11
Excel VBAでセル内の画像を選択したい
Excel(エクセル)
-
12
【VBA】3個の図形をコピーしてSheet2に貼り付けたい
Excel(エクセル)
-
13
VBAでセルを指定した画像のコピー&ペーストを繰り返したい
Excel(エクセル)
-
14
エクセルVBAですが教えてください。オートシェイプがコピーされません。
Excel(エクセル)
-
15
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
16
【VBA】写真の縦横比を変えずに貼り付ける
Visual Basic(VBA)
-
17
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
18
【EXCEL VBA】オートシェイプをクリックした時にそのオートシェイプの名前を取得したい
Visual Basic(VBA)
-
19
excel/vbaにてオートシェイプに名前の定義づけ
Excel(エクセル)
-
20
エクセルマクロでシート内にある画像のみを選択する
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA Shapes コピーと名前
-
エクセルファイルを値でのみし...
-
エクセル連番自動印刷について
-
Excelでマクロ実行中に画面を固...
-
【ExcelVBA】マクロブックを通...
-
ブックの共有でVBAエラー
-
エクセルファイルの回数期限の...
-
【Excel】マクロでページを追加...
-
VB.NETによるEXCELの行挿入
-
セルに入力するたびにマクロを...
-
ExcelのVBAコードについて教え...
-
グラフ要素のセルを参照したい...
-
VBAで保存しないで閉じると空の...
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
エクセル関数>参照ファイル名...
-
エクセル ボタンに設定したマク...
-
【Excel VBA】マクロでExcel自...
-
Excelのマクロでボタンを押すと...
-
エクセルで、「いいね」のよう...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルを値でのみし...
-
Excelでマクロ実行中に画面を固...
-
VBA Shapes コピーと名前
-
エクセル連番自動印刷について
-
【Excel】マクロでページを追加...
-
セルに入力するたびにマクロを...
-
エクセルVBAで納期管理システム...
-
エクセル マクロ写真帳に一括で...
-
エクセル 図形の寸法を取得したい
-
EXCEL 行番号や列番号が選択で...
-
ブックの共有でVBAエラー
-
EXCEL VBA 他のアプリケーショ...
-
ExcelのVBAで自動採番したい...
-
【ExcelVBA】マクロブックを通...
-
シート名を記入する
-
再度,ExcelVBA,public変数が消える
-
エクセルファイルの回数期限の...
-
エクセル メニューバーの中の...
-
worksheet_changeの一時無効化
-
VB.NETによるEXCELの行挿入
おすすめ情報