jefflee
Board Regular
- Joined
- Jun 8, 2015
- Messages
- 80
Sub draw1()
Dim picname As String
picname = Range("ao3")
ActiveSheet.Pictures.Insert("F:\Primary BK\photo\" & picname).Select
Selection.Name = "clo1"
Selection.ShapeRange.PictureFormat.TransparentBackground = msoTrue
Selection.ShapeRange.PictureFormat.TransparencyColor = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Visible = msoFalse
end sub
I wrote to insert an image to the sheet as above
I want to insert it into designated position.
the position is in the value of a1 and a2..is it possible ?
ie.
the 12 , 32 is the position of the shape .
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 12, 32, 70#, 70#). _
Select
please advise.
Dim picname As String
picname = Range("ao3")
ActiveSheet.Pictures.Insert("F:\Primary BK\photo\" & picname).Select
Selection.Name = "clo1"
Selection.ShapeRange.PictureFormat.TransparentBackground = msoTrue
Selection.ShapeRange.PictureFormat.TransparencyColor = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Visible = msoFalse
end sub
I wrote to insert an image to the sheet as above
I want to insert it into designated position.
the position is in the value of a1 and a2..is it possible ?
ie.
the 12 , 32 is the position of the shape .
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 12, 32, 70#, 70#). _
Select
please advise.