Копирование Диаграммы Excel На Новый Лист

daxtapous

New member
10.12.2013
2
0
#1
Здравствуйте, подскажите, пожалуйста, возможно ли сделать макрос копирования диаграммы с одного листа на другой. Здесь была похожая тема, но есть одно отличие. Как скопировать диаграммы только с одного листа (Activesheet) на новый лист? Т.е. я создаю диаграмму -> копирую ее на новый лист -> пересоздаю новую диаграмму на первом листе и копирую на тот же лист. Вот код из прошлой темы:

Код:
Public Sub CopyEmbeddedChartsToNewSheet(name As String, ChWidth As Integer, ChHeight As Integer)

Const Space_Between_Charts = 20

Dim newWS As Worksheet
Dim oldWS As Worksheet
Dim i As Integer

Application.ScreenUpdating = False

Set newWS = Worksheets.Add
newWS.name = name

For Each oldWS In Worksheets

If oldWS.name <> name Then

For i = 1 To oldWS.ChartObjects.count
oldWS.ChartObjects(i).Copy
newWS.Paste
Next i
End If

Next oldWS

For i = 1 To newWS.ChartObjects.count

With newWS.ChartObjects(i)

.width = ChWidth
.Height = ChHeight
.Left = 30
.Top = (i - 1) * (ChHeight + Space_Between_Charts)
End With

Next i

Application.ScreenUpdating = True

End Sub