自作アイコンを保存するには (ID:86261)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ImageListコントロールを使ってみてください。 Dim Pic As Picture ImageList1.MaskColor = 透過させたい色 With ImageList1.ListImages .Clear Set Pic = .Add(Picture:=Picture1.Image).ExtractIcon() End With SavePicture Pic, "C:\TEST.ICO"