D
daxtapous
Здравствуйте, подскажите, пожалуйста, возможно ли сделать макрос копирования диаграммы с одного листа на другой. Здесь была похожая тема, но есть одно отличие. Как скопировать диаграммы только с одного листа (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