- Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
423 ：デフォルトの名無しさん[sage]：2015/10/18(日) 00:41:32.87 ID:+wEml+zn - エクセルのマクロを作成したいのですがちょっとわからないので知恵をお貸しください
アクティブシート内に挿入された画像を一つ一つ写真1、写真2と名前を連番にしてつけたいのですが行き詰まっております。
Dim shp As shape
For each shp activesheet.shaps
If shp.type = msopicture then shp.name = "写真1 "
next
end sub
現在ここで行き詰まっているのですがこの構文だとアクティブシートにあるすべてのオブジェクトから写真だけを選択して写真1という名前に変更するというプログラムになってしまいます
俺がやりたいのは例えば5枚写真があれは写真1〜写真5となるように名前をつけていく作業です
上の構文をどのように治せば良いのか教えてください
|