Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
ActiveSheet.Shapes macro
ActiveSheet.Shapes("Chart 18").ScaleWidth 1.99, msoFalse,
msoScaleFromTopLeft ActiveSheet.Shapes("Chart 19").ScaleWidth 1.99, msoFalse, msoScaleFromTopLeft Instead of having a macro like this, I am looking for a macro that will resize the chart to its scalewidth irrespective of the chart name. Something like, resize all shapes in a particular sheet to a scalewidth like 1.99 or any other value.. Can anyone throw light on this please? Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
ActiveSheet.Shapes macro
Dim shp As Shape
For Each shp In ActiveSheet.Shapes If shp.Type = msoChart Then shp.ScaleWidth 1.99, msoFalse, msoScaleFromTopLeft ''or maybe ' With shp ' .Width = .Width * 2 ' End With End If Next Regards, Peter T wrote in message ups.com... ActiveSheet.Shapes("Chart 18").ScaleWidth 1.99, msoFalse, msoScaleFromTopLeft ActiveSheet.Shapes("Chart 19").ScaleWidth 1.99, msoFalse, msoScaleFromTopLeft Instead of having a macro like this, I am looking for a macro that will resize the chart to its scalewidth irrespective of the chart name. Something like, resize all shapes in a particular sheet to a scalewidth like 1.99 or any other value.. Can anyone throw light on this please? Thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
ActiveSheet.Shapes macro
Dim shp As Shape
For Each shp In ActiveSheet.Shapes If shp.Type = msoChart Then shp.ScaleWidth 1.99, msoFalse, msoScaleFromTopLeft End If Next shp -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) wrote in message ups.com... ActiveSheet.Shapes("Chart 18").ScaleWidth 1.99, msoFalse, msoScaleFromTopLeft ActiveSheet.Shapes("Chart 19").ScaleWidth 1.99, msoFalse, msoScaleFromTopLeft Instead of having a macro like this, I am looking for a macro that will resize the chart to its scalewidth irrespective of the chart name. Something like, resize all shapes in a particular sheet to a scalewidth like 1.99 or any other value.. Can anyone throw light on this please? Thanks |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
ActiveSheet.Shapes macro
On Oct 22, 2:13 pm, "Peter T" <peter_t@discussions wrote:
Dim shp As Shape For Each shp In ActiveSheet.Shapes If shp.Type = msoChart Then shp.ScaleWidth 1.99, msoFalse, msoScaleFromTopLeft ''or maybe ' With shp ' .Width = .Width * 2 ' End With End If Next Regards, Peter T wrote in message ups.com... ActiveSheet.Shapes("Chart 18").ScaleWidth 1.99, msoFalse, msoScaleFromTopLeft ActiveSheet.Shapes("Chart 19").ScaleWidth 1.99, msoFalse, msoScaleFromTopLeft Instead of having a macro like this, I am looking for a macro that will resize the chart to its scalewidth irrespective of the chart name. Something like, resize all shapes in a particular sheet to a scalewidth like 1.99 or any other value.. Can anyone throw light on this please? Thanks- Hide quoted text - - Show quoted text - Bob, Peter, Thank you very much |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
activesheet.shapes("Group 1...n") | Excel Programming | |||
Copying new activesheet after other activesheet is hidden? | Excel Programming | |||
ActiveSheet.Shapes | Excel Programming | |||
ActiveSheet in a Macro? | Excel Programming | |||
Shapes In ActiveSheet | Excel Programming |