|
▼ぱっせんじゃー さん:
>B2、B3セルを参照して画像挿入するサンプルです。
>
>Sub gazou()
> Dim c As Range
> Dim i As Long
> Dim Fmei As String
> Dim MyTop As Single
> Dim MyLeft As Single
> ActiveSheet.DrawingObjects.Delete
> For Each c In ActiveSheet.Range("B2:B3") '参照セルをB2:B3と指定
> i = i + 1
> Fmei = "I:\雑誌\" & c.Value & ".jpg"
> If Dir(Fmei) = "" Then '画像ファイルが存在しない場合
> MsgBox "指定の画像ファイルは存在しません。" & vbCrLf & "処理を中止します。"
> Exit Sub
> Else
> ActiveSheet.Pictures.Insert(Fmei).Name = "画像" & i
> With ActiveSheet.Shapes("画像" & i)
> .LockAspectRatio = msoTrue
> .Height = 270#
> If i = 1 Then
> MyTop = ActiveSheet.Cells(4, 4).Top
> Else
> MyTop = ActiveSheet.Shapes("画像" & i - 1).Top + _
> ActiveSheet.Shapes("画像" & i - 1).Height
> End If
> .Top = MyTop
> End With
> End If
> Next
>End Sub
おかげさまで、解決しました。
何度も申し訳ありません、
本当に有難うございました。
|
|