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

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

<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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
>

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)



<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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
>

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
>
> <ucanalw...@gmail.com> wrote in message
>
> news:(E-Mail Removed)...
>
>
>
> > 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