Hi,

I have 15 charts in one worksheet and want to go through them and have them
all unvisible put instead show a picture of them.

I have now tried to much of my own and would be grateful to any help, parts
or in whole. I have this code right now, but get error on line W "=
chtobj.Width" . I feel that it will not be the last debug error in it, so
please help me...


Private Sub CopyChart()
Application.EnableEvents = False
Application.ScreenUpdating = True

Dim chtobj As ChartObject
Dim W As Double
Dim H As Double
Dim T As Double
Dim L As Double
Dim Pic As Image

For Each chtobj In Sheet1.ChartObjects
W = chtobj.Width
H = chtobj.Height
L = chtobj.Left
T = chtobj.Top
chtobj.Visible = False
chtobj.CopyPicture Appearance:=xlScreen, Format:=xlPicture
ActiveSheet.Pictures.Paste.Select
With Selection
.Width = W
.Height = H
.Left = L
.Top = T
End With
Next chtobj

Application.EnableEvents = False
Application.ScreenUpdating = True
Exit Sub

/Regards