Hi All,

I have some 20 charts in a spreadsheet. I want all the charts to be of
same size (height and width). I am doing this with the following code:

Dim ChtOb As ChartObject
Dim ChartLeft As Double, ChartTop As Double
Sub ChartSize()
'
' ChartSize Macro
' Macro recorded 3/26/2007 by E366091
'
' Keyboard Shortcut: Ctrl+Shift+E
'

For Each ChtOb In ActiveSheet.ChartObjects
ChtOb.Height = 253.5
ChtOb.Width = 386.25
Next ChtOb
End Sub


Above code works perfectly when resizing the charts, but it again
create a duplicate of all the charts. I am not able to understands, as
why it creates a duplicate of the charts. Please help.

thanks,
navin

Navin,
This code does not create duplicates for me.
Must be something else that is doing that.

NickHK

"navin" wrote in message
ups.com...
Hi All,

I have some 20 charts in a spreadsheet. I want all the charts to be of
same size (height and width). I am doing this with the following code:

Dim ChtOb As ChartObject
Dim ChartLeft As Double, ChartTop As Double
Sub ChartSize()
'
' ChartSize Macro
' Macro recorded 3/26/2007 by E366091
'
' Keyboard Shortcut: Ctrl+Shift+E
'

For Each ChtOb In ActiveSheet.ChartObjects
ChtOb.Height = 253.5
ChtOb.Width = 386.25
Next ChtOb
End Sub


Above code works perfectly when resizing the charts, but it again
create a duplicate of all the charts. I am not able to understands, as
why it creates a duplicate of the charts. Please help.

thanks,
navin

Hi navin,

As Nick said your code does not create duplicate charts. Maybe you deleted
rows or columns containing charts making them zero height or width and
effectively invisible, then re-created similar charts. With this scenario
running your code would give the impression of creating duplicates.

Regards,
Peter T

"navin" wrote in message
ups.com...
Hi All,

I have some 20 charts in a spreadsheet. I want all the charts to be of
same size (height and width). I am doing this with the following code:

Dim ChtOb As ChartObject
Dim ChartLeft As Double, ChartTop As Double
Sub ChartSize()
'
' ChartSize Macro
' Macro recorded 3/26/2007 by E366091
'
' Keyboard Shortcut: Ctrl+Shift+E
'

For Each ChtOb In ActiveSheet.ChartObjects
ChtOb.Height = 253.5
ChtOb.Width = 386.25
Next ChtOb
End Sub


Above code works perfectly when resizing the charts, but it again
create a duplicate of all the charts. I am not able to understands, as
why it creates a duplicate of the charts. Please help.

thanks,
navin