TOP
エクセル内の画像を、同じ位置に他の画像を入れ替える(しかも全部)'PastePicturesマクロ
Sub PastePictures2()
Dim filenames As Variant, filename As Variant
filenames = Application.GetOpenFilename( _
FileFilter:="画像ファイル,*.png;*.jpg", _
MultiSelect:=True)
Dim ob As Object
Dim st() As Variant
Dim i As Integer
Dim fileno
fileno = 1
Dim lef
Dim too
i = 0
For Each ob In ActiveSheet.Pictures
picleft = ob.Left
pictop = ob.Top
Dim picture As Shape
Set picture = ActiveSheet.Shapes.AddPicture( _
filename:=filenames(fileno), _
LinkToFile:=False, SaveWithDocument:=True, _
Left:=picleft, Top:=pictop, _
Width:=0, Height:=0)
picture.ScaleHeight 0.241, msoTrue
picture.ScaleWidth 0.241, msoTrue
picture.ZOrder msoSendToBack
ob.Delete
fileno = fileno + 1
Next ob
End Sub
|
その他の最新記事
すぃーとみるきぃうぇい
2007/8/29(水) 午前 10:17
おそらくこれ書き終わるの30分後とかになるんだろうな。
田村ゆかり2007summer* Sweet Milky Way * パシフィコ横浜 のれぽ
物販は販売開始1時間15分前に並んで、俺の100人前で会場限定T
...
すべて表示




