Thank you, it work for me to.
Could anybody please tell me how to delete the pictures? I can't find a
syntax to work to separate chartobjects from pictures.
A For each...Next modell would be handy. Anybody? Tim ?
Thanks again, Im on the track now.
/Regards
"Tim Williams" <saxifrax@pacbell*dot*net> skrev i meddelandet
news:(E-Mail Removed)...
> works for me...
>
> Tim
>
> Sub CopyChart()
>
> Dim chtobj As ChartObject
>
> ActiveSheet.Range("A1").Select
> For Each chtobj In Sheet1.ChartObjects
> chtobj.CopyPicture Appearance:=xlScreen, Format:=xlPicture
> ActiveSheet.Paste
>
> With Selection
> .Left = chtobj.Left
> .Top = chtobj.Top
> .Width = chtobj.Width
> .Height = chtobj.Height
> End With
> chtobj.Visible = False
> Next chtobj
> End Sub
>
>
> "Gunnar Johansson" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> 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
>>
>
>
|
Similar Threads
