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

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

  1. daxtapous

    daxtapous New Member

    Регистрация:
    10 дек 2013
    Сообщения:
    2
    Симпатии:
    0
    Здравствуйте, подскажите, пожалуйста, возможно ли сделать макрос копирования диаграммы с одного листа на другой. Здесь была похожая тема, но есть одно отличие. Как скопировать диаграммы только с одного листа (Activesheet) на новый лист? Т.е. я создаю диаграмму -> копирую ее на новый лист -> пересоздаю новую диаграмму на первом листе и копирую на тот же лист. Вот код из прошлой темы:

    Код (LotusScript):
    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
     
Загрузка...

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