default to not move or size shapes?

[Jason D]

Is there a way, like creating a template, that will default to"do not move or size" shapes"?

 

[Yongle]

Welcome to the forum Jason

can do with VBA like this ...

Sub Add_Rectangle_100_X_25()
    With ActiveSheet
        .Shapes.AddShape(msoShapeRectangle, ActiveCell.Left, ActiveCell.Top, 100, 25).Select
        .Shapes(ActiveSheet.Shapes.Count).Placement = xlFreeFloating
    End With
End Sub

default is .Placement = xlMoveAndSize

to loop all shapes in workbook and apply the same property ...

Sub Do_Not_Move_And_ReSize()
    Dim ws As Worksheet, shp As Shape
    For Each ws In ThisWorkbook.Worksheets
        For Each shp In ws.Shapes
            shp.Placement = xlFreeFloating
        Next shp
    Next ws
End Sub

Go to VBA window with {ALT}{F11}
Insert Module with {ALT} I M
Paste code into that module
Go back to Excel with {ALT}{F11}
Get list of macros with {ALT}{F8}
Select & Run Sub Add_Rectangle_100_X_25
Save workbook as macro enabled

 

[Jason D]

Thank you very much!