susanto
08-22-2018, 09:06 AM
hi all...
how to inserting different 3 pictures in different cell and different sheets ( i have 50 sheets)
Sub InsertPic() Dim I As Long
Dim xPath As String
Dim xShape As Shape
Dim xRg As Range
xPath = "G:\foto_test\1.jpg,2.jpg,3.jpg"
If Dir(xPath) = "" Then
MsgBox "Picture file was not found in path!", vbInformation, "test"
Exit Sub
End If
For I = 1 To ActiveWorkbook.Sheets.Count
Set xRg = Sheets(I).Range("B10:C10") ("D10:E10") (f10:g10)
Set xShape = Sheets(I).Shapes.AddPicture(xPath, True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)
Next End Sub
file name picture is always 1.jpg, 2.jpg,3.jpg
my target is
1.jpg----inserted into cell B10:C10 for each sheet ( i have 50 sheet)
2.jpg----inserted into cell D10:E10 for each sheet ( i have 50 sheet)
3.jpg----inserted into cell F10:G10 for each sheet ( i have 50 sheet)
anybody help greatly appreciated
ssanto.
how to inserting different 3 pictures in different cell and different sheets ( i have 50 sheets)
Sub InsertPic() Dim I As Long
Dim xPath As String
Dim xShape As Shape
Dim xRg As Range
xPath = "G:\foto_test\1.jpg,2.jpg,3.jpg"
If Dir(xPath) = "" Then
MsgBox "Picture file was not found in path!", vbInformation, "test"
Exit Sub
End If
For I = 1 To ActiveWorkbook.Sheets.Count
Set xRg = Sheets(I).Range("B10:C10") ("D10:E10") (f10:g10)
Set xShape = Sheets(I).Shapes.AddPicture(xPath, True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)
Next End Sub
file name picture is always 1.jpg, 2.jpg,3.jpg
my target is
1.jpg----inserted into cell B10:C10 for each sheet ( i have 50 sheet)
2.jpg----inserted into cell D10:E10 for each sheet ( i have 50 sheet)
3.jpg----inserted into cell F10:G10 for each sheet ( i have 50 sheet)
anybody help greatly appreciated
ssanto.