Excel 2010マクロで挿入した画像に名前が付けられない!
Excel 2002で作成・使用していた画像挿入修正マクロを、Excel 2010で実行したところ、
下記プログラムの下から二行目の「ActiveSheet.Shapes(na11).Name = "ga1"」部分で
「指定したコレクションに対するインデックスが境界をこえています」とのことで
エラー!になります。
na11 = Selection.ShapeRange.ZOrderPosition
ActiveSheet.Shapes(na11).Name = "ga1"
上記の部分のみを、Excel 2010で実行すると正常に作動します。
原因がわかりません。ご指導よろしくお願いいたします。
※下記プログラムの「¥」は文字化けするため、全角に置き換えております。
------------------------------------------------------
' 画像(1)を自動配置する
If Range("AQ18").Value = 0 Then
Else
san = Range("DA17").Value
san2 = Right(san, Len(san) - InStrRev(san, "-") + 1)
d = Left(san, Len(san) - Len(san2))
myPath = pa & "¥" & a & "¥" & a & " " & b & " " & k & "¥" & d & "¥" & d & "-PHOTO" & "¥" & d & "_web"
Range("H42").Select
ActiveSheet.Pictures.Insert(myPath & "¥" & san).Select
' 画像(1)を縮小し、名前を付ける
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Width = size1
Selection.ShapeRange.Rotation = 0#
na11 = Selection.ShapeRange.ZOrderPosition
ActiveSheet.Shapes(na11).Name = "ga1"
End If
--------------------------------------------------
No.1ベストアンサー
- 回答日時:
下記で試してみてください。
ActiveSheet.Pictures.Insert(myPath & "¥" & san).Name = "ga1"
あるいは
With ActiveSheet.Pictures.Insert(myPath & "¥" & san)
.Name = "ga1"
' 画像(1)を縮小し、名前を付ける
.ShapeRange.LockAspectRatio = msoTrue
.Width = size1
.Rotation = 0#
End With
xls88 様 ありがとうございました。大変参考になりました。
Excel 2010で挿入した画像に名前が付けられました。
' 画像を挿入して名前(ga1)を付け、サイズを変更する--------------
With ActiveSheet.Pictures.Insert(myPath & "¥" & san)
.Name = "ga1"
.ShapeRange.LockAspectRatio = msoTrue
.ShapeRange.Width = size1
End With
上記のように書き換えました。(Excel 2010、Excel 2002、Excel 2003)すべて
正常に作動しました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- PHP if(preg_match("/[^0-9]/",$gu_d)){意味を教えてください。 1 2022/05/06 05:37
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- C言語・C++・C# c言語の問題です 3 2023/01/10 16:15
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- PHP ここでの ②if($su_d<>"")の比較演算子 を使う理由は 1 2022/03/26 02:33
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
画像を削除したい(VBA)
Word(ワード)
-
エクセルVBAでセル番地を指定してオブジェクト名取得
Excel(エクセル)
-
エクセルのマクロで特定フォルダ内のJPGファイルを検索して開きたいので
Excel(エクセル)
-
-
4
exeファイルの中身を見ることは可能ですか?
フリーソフト
-
5
VBA Shapes コピーと名前
Excel(エクセル)
-
6
マウスで選択した図形のみVBAで移動したい。
Visual Basic(VBA)
-
7
【VBA】ファイルパスに半角スペースが入ると、VBAが動かない
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
男の人はやってるとき 彼女がす...
-
彼と体の相性が良すぎて悩んで...
-
女性が喘いでいるときの男性の...
-
高校生です。彼氏の前で初めて...
-
抱きしめたときに勃起したあそ...
-
男性の方に質問です。 バックで...
-
もし週1しか恋人と会えなかった...
-
夫婦の夜の営みについてです。 ...
-
彼女が感じやすくて可愛い
-
彼氏と毎日セックスするのは異...
-
男の人ってなんですぐ勃つの?...
-
ふぇらでイカセテくれる うまい...
-
クンニしたことある人ー ま○こ...
-
彼氏のセックスが下手すぎで幻...
-
キスすれば相手を好きでなくて...
-
彼女がフェラをしてくれません。
-
兄妹や姉弟で、キスやエッチし...
-
セックス中に動画や写真を撮る...
-
実家住まいの場合Hはホテル以外...
-
SEXの相性が良すぎると男はダメ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
男の人はやってるとき 彼女がす...
-
彼と体の相性が良すぎて悩んで...
-
高校生です。彼氏の前で初めて...
-
女性が喘いでいるときの男性の...
-
夫婦の夜の営みについてです。 ...
-
抱きしめたときに勃起したあそ...
-
彼氏と毎日セックスするのは異...
-
彼女が感じやすくて可愛い
-
もし週1しか恋人と会えなかった...
-
男の人ってなんですぐ勃つの?...
-
クンニしたことある人ー ま○こ...
-
男性の方に質問です。 バックで...
-
兄妹や姉弟で、キスやエッチし...
-
SEXの相性が良すぎると男はダメ...
-
彼氏のセックスが下手すぎで幻...
-
初体験って気持ちいいの? 男の...
-
男性に質問です! 電話だけで勃...
-
キスすれば相手を好きでなくて...
-
ふぇらでイカセテくれる うまい...
-
彼氏が勃っていました。 高校生...
おすすめ情報