Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6892 / 76732 ←次へ | 前へ→

【75436】Re:順序よく、エクセルから画像を取り出す
回答  ちび坊主  - 14/3/25(火) 13:27 -

引用なし
パスワード
   こんにちは。

試した感じでは、画像のZorder順で名付けられるようです。

Sub test()
 Dim PicList As Object
 Dim Pic As Picture
 Dim i As Long
 
 
 Set PicList = CreateObject("System.Collections.SortedList")

 For Each Pic In ActiveSheet.Pictures
  PicList.Add Pic.Top, Pic.Name
 Next
 
 For i = 0 To PicList.Count - 1
  ActiveSheet.Pictures(PicList.GetByIndex(i)).ShapeRange.ZOrder msoBringToFront
 Next
 
 Set PicList = Nothing
End Sub

たたき台程度で。

画像のTopと名前を取り込み、Top順で名前を並べ替えて、
その名前順でZorderを変えています。

同じTopの画像があった場合には、Indexが若い方は無視されます。

4 hits

【75409】順序よく、エクセルから画像を取り出す クリプ 14/3/21(金) 11:35 質問
【75436】Re:順序よく、エクセルから画像を取り出す ちび坊主 14/3/25(火) 13:27 回答
【75437】Re:順序よく、エクセルから画像を取り出す ちび坊主 14/3/25(火) 16:07 回答
【75446】Re:順序よく、エクセルから画像を取り出す クリプ 14/3/31(月) 6:30 回答
【75447】Re:順序よく、エクセルから画像を取り出す ちび坊主 14/3/31(月) 10:22 回答
【75448】Re:順序よく、エクセルから画像を取り出す クリプ 14/3/31(月) 12:50 お礼

6892 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free