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

Workdays for a market open Mon, Wed, Friday?
Yes! Use "0101011" for the weekend argument in NETWORKDAYS.INTL or WORKDAY.INTL. The 7 digits start on Monday. 1 means it is a weekend.

Yongle

Well-known Member
Joined
Mar 11, 2015
Messages
6,004
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,098,998
Messages
5,465,895
Members
406,453
Latest member
CeReaLK

This Week's Hot Topics

Top