|
例えば D4 以下に「6行・3列の大きさ」で「1行空白をおいて」画像を挿入していく、
というコードなら
Sub Pic_Ins()
Dim MyF As String
Dim xR As Long
Dim Lp As Single, Tp As Single
Dim Wp As Single, Hp As Single
ChDir "C:\Documents and Settings\User" & _
"\My Documents\My Pictures\画像資料"
With Application
MyF = .GetOpenFilename("画像ファイル(*.jpg),*.jpg")
If MyF = "False" Then GoTo ELine
.ScreenUpdating = False
End With
With ActiveSheet
If .Pictures.Count = 0 Then
xR = 4
Else
xR = .Pictures.Count * 7 + 4
End If
With .Cells(xR, 4).Resize(6, 3)
Lp = .Left: Tp = .Top
Wp = .Width: Hp = .Height
End With
With .Pictures.Insert(MyF)
.Left = Lp: .Top = Tp
.Width = Wp: .Height = Hp
End With
End With
ELine:
With Application
ChDir .DefaultFilePath
.ScreenUpdating = True
End With
End Sub
などとします。
どんなコードにするにせよ、ファイルのパスは正確に入力しなくてはならないのだから、
手入力を止めてダイアログから選ぶやり方の方が、確実と思います。
|
|