
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
男の人はやってるとき 彼女がす...
-
男性の方に質問です。 バックで...
-
フェラチオは妻の義務ですか?...
-
彼女が感じやすくて可愛い
-
風俗ってどこまでの接客をします?
-
女性が喘いでいるときの男性の...
-
夫婦の夜の営みについてです。 ...
-
高校生です。彼氏の前で初めて...
-
初体験って気持ちいいの? 男の...
-
彼氏と毎日セックスするのは異...
-
兄妹や姉弟で、キスやエッチし...
-
男性に質問です。 デリヘルって...
-
ソープランドについて
-
男性に質問です! 電話だけで勃...
-
ふぇらでイカセテくれる うまい...
-
彼女がフェラをしてくれません。
-
彼と体の相性が良すぎて悩んで...
-
もし週1しか恋人と会えなかった...
-
乳首舐められるのと手マンって...
-
風俗嬢(20代前半)です。お客を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
男の人はやってるとき 彼女がす...
-
男性の方に質問です。 バックで...
-
彼女が感じやすくて可愛い
-
風俗ってどこまでの接客をします?
-
フェラチオは妻の義務ですか?...
-
高校生です。彼氏の前で初めて...
-
女性が喘いでいるときの男性の...
-
夫婦の夜の営みについてです。 ...
-
男性に質問です! 電話だけで勃...
-
男性に質問です。 デリヘルって...
-
彼氏と毎日セックスするのは異...
-
初体験って気持ちいいの? 男の...
-
彼と体の相性が良すぎて悩んで...
-
ソープランドについて
-
兄妹や姉弟で、キスやエッチし...
-
キスすれば相手を好きでなくて...
-
もし週1しか恋人と会えなかった...
-
ふぇらでイカセテくれる うまい...
-
彼女がフェラをしてくれません。
-
実家住まいの場合Hはホテル以外...
おすすめ情報