VBA code to resize picture

[SPICEWORM]

Hello,

I am trying to copy cells from one tab to another as a picture. It copies as a picture, but won't resize. Code gets an error after pictures.paste

Thanks in advance.

Application.CutCopyMode = False
    Worksheets("Orig-Plant").Activate
    ActiveSheet.Range("B2:N67").Copy
    
    With Worksheets("Report")
        .Activate
        .Range("B47").Select
        .Pictures.Paste
        .Selection.ShapeRange.LockAspectRatio = msoFalse
        .Selection.ShapeRange.Height = 328.32
        .Selection.ShapeRange.Width = 747.36
    End With

 

[tonyyy]

SPICEWORM,

You might consider the following...

Sub ResizePic_1019535()
    Dim pic As Shape
    Application.CutCopyMode = False
    Worksheets("Orig-Plant").Range("B2:N67").Copy
    With Worksheets("Report")
        .Activate
        .Range("B47").Select
        .Pictures.Paste
        For Each pic In .Shapes
            If pic.TopLeftCell.Address(0, 0) = "B47" Then
                pic.Select
                With Selection
                    .ShapeRange.LockAspectRatio = msoFalse
                    .ShapeRange.Height = 328.32
                    .ShapeRange.Width = 747.36
                End With
            End If
        Next pic
    End With
End Sub

Cheers,

tonyyy

 

[SPICEWORM]

Thanks Tonyyy. That works great!!

 

[tonyyy]

You're very welcome...