default to not move or size shapes?

Jason D

New Member
Joined
Jun 9, 2019
Messages
2
Is there a way, like creating a template, that will default to"do not move or size" shapes"?
 

Some videos you may like

Excel Facts

What does custom number format of ;;; mean?
Three semi-colons will hide the value in the cell. Although most people use white font instead.

Yongle

Well-known Member
Joined
Mar 11, 2015
Messages
5,644
Office Version
365
Platform
Windows
Welcome to the forum Jason :)

can do with VBA like this ...
Code:
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 ...
Code:
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
 
Last edited:

Watch MrExcel Video

Forum statistics

Threads
1,095,637
Messages
5,445,653
Members
405,352
Latest member
WashingtonDC74

This Week's Hot Topics

Top