エクセルのマクロで変数で図を挿入する方法

マクロで図を挿入するため、図の名称を変数で
指定しようとしていますが、以下の※でエラーが出てしまいます。
解決方法を教えて頂けませんか。

Sub Macro1()
Dim ws1 As Worksheet
Dim R As Integer
Dim fname As String

Set ws1 = Worksheets("電気料明細")
Sheets("電気料明細").Select
R = ws1.Cells(5, 4).Value
fname = Worksheets("電気料明細").Range("d5").Value & "D.jpg"
Range("D35").Select
※ ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\fname").Select
Selection.ShapeRange.Width = 184.2
End Sub

No.1 回答者： WindFaller 回答日時： 2015/07/15 12:02

こんにちは。

変数はダブルクォーテーション("")で括ってはいけません。

ThisWorkbook.Path & "\fname"　'←ここが間違いです。

例
'//
Sub Macro1()
'No. 9022934
Dim ws1 As Worksheet
Dim R As Integer
Dim fName As String

Set ws1 = Worksheets("電気料明細")
ws1.Select
R = ws1.Cells(5, 4).Value
fName = ThisWorkbook.Path & "\" & Range("D5").Value & "D.jpg"
Range("D35").Select
With ws1.Pictures.Insert(Filename:=fName)
　　　　.Top = ActiveCell.Top
　　　　.Left = ActiveCell.Left
　　　　.Width = 184.2
End With
End Sub
'///

私も「電気料明細」を毎月作っています。月ごとで、係数が変わりますので、結構、最初、面倒だと思いました。