|
▼Kein さん:
>例えば 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
>
>などとします。
>どんなコードにするにせよ、ファイルのパスは正確に入力しなくてはならないのだから、
>手入力を止めてダイアログから選ぶやり方の方が、確実と思います。
すみません、せっかく答えて頂いたのに
素人なのでよくわかりません。
具体的に、B2とB3のセルに写真のファイル名を入れて、
同じシートの適当なところに表示(挿入)したいのです。
本当に申し訳ありませんが、教えて頂きませんか?
|
|