Insert Image from Image Control

[Hmerman]

Hello,
I have an Userform that when you click on a button named Photo it opens Windows Camera App and when your finished taking photos (you close the App). You then click on another button on the Userform that should load the mostrecentfile into a Image Control (the code is still a bit wonky on this particular aspect, but I am getting there).

Once the image is loaded in the Image Control I want to place it directly from the Image Control on a specific range on Sheet1. The thing is I am uncertain if this is possible? I have written the code and kept it simple, but I get an Error 1004: Specified value out of range. The error is in the line in red.

Dim Rng As Range
    Dim img As Picture
    dim sht as WorkSheet
      
      sht = Sheet1
      Set Rng = sht.Range("B15")
    With Rng
       
        [COLOR=#ff0000]Set img = ActiveSheet.Shapes.AddPicture(Image1.Picture, False, False, 5, 5, 1, 1)[/COLOR]
        
        With img
            .Height = 200
            .Width = 120
            .Left = Rng.Left
            .Top = Rng.Top

        End With
        
        
    End With

Is this possible?
Can someone please help me?

Regards,

 

[VBA Geek]

try this:

Dim shp As Excel.Shape

SavePicture Me.Image1.Picture, Environ("Temp") & "\myTemp.jpg"

Set shp = Sheet4.Shapes.AddShape(msoShapeRectangle, Range("B15").Left, Range("B15").Top, 120, 200)

shp.Fill.UserPicture Environ("Temp") & "\myTemp.jpg"

 

[Hmerman]

That is Excellent. Thanks.

Is it possible to name the shape dinamically every time it is added? E.g. Rect1; Rect2. So I can code a loop that looks through all the objects to see if it exists before adding another shape on another destination
Offset(a ,2)
a = a + 15 from original. I can't seem to find a name argument in the Shape.AddShape Method help files.

Sorry I know this is not what I originally asked.

Or should I rather fill Range("B15") = with "spaces" so it is not empty, and rather look for the empty cell?

 

[VBA Geek]

To assign a name to a shape you can just do: shp.Name = "Rect1"

Depending on how you are approaching it, you can also make use of the TopLeftCell property of the shape which will "[FONT=&quot]Return a [/FONT][FONT=&quot]Range[/FONT][FONT=&quot] object that represents the cell that lies under the upper-left corner of the specified object", [/FONT]https://msdn.microsoft.com/en-us/vba/excel-vba/articles/shape-topleftcell-property-excel[FONT=&quot]


[/FONT]

 

[Hmerman]

Great. Thanks again.

Will try the Shape.TopLeftCell Property.