Hi All, i try to re-size and position as you can see in attachment and code below but all my trying failed. please any suggest to do that? Appreciate your help and your time here. Thank you.
Code:
Dim picture As Object
Dim strURL1 As String
strURL1 = RS("dt_Image")
Set picture = xlSheet1.Pictures.Insert(strURL1)
picture.ShapeRange.Width = picture.Width
picture.ShapeRange.Height = 0.2 * picture.Height
picture.Left = 100
picture.Top = 20