
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を探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
男の人はやってるとき 彼女がす...
-
男性に質問です。 デリヘルって...
-
男性の方に質問です。 バックで...
-
高校生です。彼氏の前で初めて...
-
風俗ってどこまでの接客をします?
-
フェラチオは妻の義務ですか?...
-
彼女が感じやすくて可愛い
-
兄妹や姉弟で、キスやエッチし...
-
ソープランドについて
-
夫婦の夜の営みについてです。 ...
-
初体験って気持ちいいの? 男の...
-
女性が喘いでいるときの男性の...
-
男性に質問です! 電話だけで勃...
-
彼氏と毎日セックスするのは異...
-
彼と体の相性が良すぎて悩んで...
-
既婚男性に質問です。 風俗って...
-
キスすれば相手を好きでなくて...
-
60過ぎの彼。たとえイケなくて...
-
彼とエッチするとき、私は乳首...
-
ふぇらでイカセテくれる うまい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
男の人はやってるとき 彼女がす...
-
男性の方に質問です。 バックで...
-
風俗ってどこまでの接客をします?
-
フェラチオは妻の義務ですか?...
-
彼女が感じやすくて可愛い
-
男性に質問です。 デリヘルって...
-
高校生です。彼氏の前で初めて...
-
女性が喘いでいるときの男性の...
-
夫婦の夜の営みについてです。 ...
-
兄妹や姉弟で、キスやエッチし...
-
初体験って気持ちいいの? 男の...
-
彼氏と毎日セックスするのは異...
-
男性に質問です! 電話だけで勃...
-
ソープランドについて
-
彼と体の相性が良すぎて悩んで...
-
ふぇらでイカセテくれる うまい...
-
キスすれば相手を好きでなくて...
-
前戯なしで挿入されました。大...
-
彼氏が前戯をしてくれない
-
彼女がフェラをしてくれません。
おすすめ情報