Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
change all the autoshapes
Hi,
I'm wondering if it's possible to change all the autoshapes in an Excel 2003 worksheet from oval to square. If there's a way to do this using VBA it would certainly save me a lot of time and effort. Thanks in advance, Max |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
change all the autoshapes
Was the play a success?
-- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware Sub SquareUpThoseCorners() Dim shp As Excel.Shape For Each shp In ActiveSheet.Shapes If shp.AutoShapeType = msoShapeOval Then shp.AutoShapeType = msoShapeRectangle shp.Height = shp.Width End If Next End Sub '------------ "Max Bialystock" wrote in message Hi, I'm wondering if it's possible to change all the autoshapes in an Excel 2003 worksheet from oval to square. If there's a way to do this using VBA it would certainly save me a lot of time and effort. Thanks in advance, Max |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
change all the autoshapes
And this should prevent errors...
Sub SquareUpThoseCorners_R1() Dim shp As Excel.Shape For Each shp In ActiveSheet.Shapes If shp.Type = msoAutoShape Then If shp.AutoShapeType = msoShapeOval Then shp.AutoShapeType = msoShapeRectangle shp.Height = shp.Width End If End If Next End Sub -- Jim Cone San Francisco, USA http://www.officeletter.com/blink/specialsort.html |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I change an AutoShapes Callout line gap ? | Charts and Charting in Excel | |||
autoshapes | Excel Discussion (Misc queries) | |||
How do you change the default text alignment for Excel autoshapes | Excel Discussion (Misc queries) | |||
autoshapes | Excel Worksheet Functions | |||
autoshapes | Excel Programming |