エクセルVBAで複数の図に名前をつけたい
エクセルで見出しと合計2カ所などウィンドウ枠固定を複数つける
ことはできないので、かわる方法として図のリンク貼り付けを利用
しようと思い下記を作りました。
Sub test()
Range("A100", "R100").Select
Selection.Copy
Range("A1").Select
ActiveSheet.Pictures.Paste link:=True
ActiveSheet.Pictures.ShapeRange.Name = "合計1"
Range("A200", "R200").Select
Selection.Copy
Range("A2").Select
ActiveSheet.Pictures.Paste link:=True
ActiveSheet.Pictures.ShapeRange.Name = "合計2" ・・・(1)
End Sub
必要に応じて合計1または合計2を削除します
Sub 図1削除()
ActiveSheet.Shapes("合計1").Delete
End Sub
Sub 図2削除()
ActiveSheet.Shapes("合計2").Delete
End Sub
(1)のところで
「このメンバにアクセスできるのは、単一の図形の場合だけです」エラーになります。
エラーがでないように図に名前をつける方法をおしえていただけないでしょうか。
何卒よろしくお願い致します
No.1ベストアンサー
- 回答日時:
とりあえず,ご質問の直接の回答としては
Sub test()
Range("A100", "R100").Copy
Range("A1").Select
ActiveSheet.Pictures.Paste(link:=True).Name = "合計1"
Range("A200", "R200").Copy
Range("A2").Select
ActiveSheet.Pictures.Paste(link:=True).Name = "合計2"
End Sub
といった具合で。
#以下余談
有り体に言えば100行目や200行目を参照する数式を,1行目にずらっと並べておくだけで十分に見えます。どんな状況で100や200を差し替えたい(ご質問の事例でわざわざDeleteを行う理由とタイミング)が不明なので,具体的な数式はまた別途ご相談ください。
または。
1行目に図のリンク貼り付けを1つ固定で配置しておき,その「リンクするセル範囲」を状況によって差し替える(こちらも同上で,何をどうしたら差し替えたいのか不明なので,具体的なマクロ等も提案できません),つまり1個のリンク貼り付けを使い回す事でも出来そうです。
早速の回答ありがとうございます。
回答の方法でエラーはなくうまくいきました。
>どんな状況で100や200を差し替えたい・・・
実は行列両方にスクロールしないといけない巨大な表のため
スクロールしながら任意の場所にリンク貼り付け表示をON、OFF
できれば便利かなと思い質問しました。
いろいろなご提案ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Excel(エクセル) エクセルのVBAにショートカットキーの割り当て 3 2022/07/13 14:19
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) マクロを短くする 1 2023/01/15 00:11
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで負の数を足さずに0以上...
-
中学数学をなめてはいけないな...
-
VBAで各列の"+"と"o"の合計数を...
-
2桁のチェックデジット求め方...
-
以下の問題ってどう解くのです...
-
エクセルVBAで複数の図に名前を...
-
中学レベルの数学のSPI問題です。
-
数列の問題について質問です
-
規則性の問題
-
Excel VBAについて
-
数学の問題です。 AとBの所持金...
-
すいませんが、簡単な方法があ...
-
生きている日数が知りたい。
-
天秤の問題
-
Excelでかなり横長の表を作って...
-
小学校6年の規則性の数列問題...
-
エクセルで収支報告書をつくる...
-
510から605までの数字を510、51...
-
Excelにて、フッターにシートの...
-
この七個の数字の中から5個選ん...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで負の数を足さずに0以上...
-
VBAで各列の"+"と"o"の合計数を...
-
Excelの関数、マイナスになった...
-
天秤の問題
-
2行おきの合計、VBAでど表現す...
-
Excelにて、フッターにシートの...
-
千円引きと20%引き
-
トランプの数値の合計数を計算...
-
中学数学をなめてはいけないな...
-
以下の問題ってどう解くのです...
-
2桁のチェックデジット求め方...
-
エクセルVBAで複数の図に名前を...
-
SPIの問題について質問です。 P...
-
一般常識
-
Excelでかなり横長の表を作って...
-
エクセルで右下に合計を出す方法?
-
簡単な問題のように見えて難し...
-
二項係数の和で、二項定理を使...
-
4で割ると1余り、5で割ると2余...
-
数字の問題で「あるバネに10gの...
おすすめ情報