| |
こんにちは。
下記のようなことをしたいのですがお教えください。
test file.xlsというBookのSheet1（印刷用のシート）のあるセルに
=IF('17年度'!AV4=0,"",'17年度'!AV4)
という数式が入っていてます。
"17年度"はデータが入力してある一覧表です。
印刷用のシートの各セルに上記のような数式が入っており
データの挿入は一覧表の行番号を指定して行います。
上記の結果（ファイル名）を参照して画像を挿入したいのですが
ご教示よろしくお願いします。
ちなみに画像挿入自体は出来ていると思いますが
行番号を入力しても画像は挿入されない状態です。
何を追記すればいいのでしょうか?
Sub Pic_Ins()
Dim MyPic As String
Dim Lp As Single, Tp As Single
Dim Wp As Single, Hp As Single
MyPic = "C:\test\" & Sheets("17年度").Range("AV4").Value & ".jpg"
If Dir(MyPic) = "" Then
MsgBox "該当する事前写真が見つかりません！", 48: Exit Sub
End If
With Range("F11:Q22")
Lp = .Left: Tp = .Top
Wp = .Width: Hp = .Height
End With
Application.ScreenUpdating = False
With ActiveSheet.Pictures.Insert(MyPic)
.Left = Lp: .Top = Tp
.Width = Wp: .Height = Hp
End With
Application.ScreenUpdating = True
MyPic = "C:\test\" & Sheets("17年度").Range("AW4").Value & ".jpg"
If Dir(MyPic) = "" Then
MsgBox "該当する事後写真が見つかりません！", 48: Exit Sub
End If
With Range("F24:Q35")
Lp = .Left: Tp = .Top
Wp = .Width: Hp = .Height
End With
Application.ScreenUpdating = False
With ActiveSheet.Pictures.Insert(MyPic)
.Left = Lp: .Top = Tp
.Width = Wp: .Height = Hp
End With
Application.ScreenUpdating = True
End Sub
よろしくお願い致します。
|
|
taku
- 05/10/17(月) 11:50 -
