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

Тема в разделе "Visual Basic", создана пользователем daxtapous, 10 дек 2013.

  1. daxtapous

    daxtapous New Member

    Репутация:
    0
    Регистрация:
    10 дек 2013
    Сообщения:
    2
    Симпатии:
    0
    Здравствуйте, подскажите, пожалуйста, возможно ли сделать макрос копирования диаграммы с одного листа на другой. Здесь была похожая тема, но есть одно отличие. Как скопировать диаграммы только с одного листа (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
     
Загрузка...

Поделиться этой страницей