Страницы: 1
RSS
Как сохранить в буфер обмена - объект, чье название вписано в ячейку B1
 
Здравствуйте.

У меня такой вопрос.
На листе много разных фигур, групп фигур и диаграмма.
Ответьте, пожалуйста - как сохранить в буфер обмена - объект, чье название вписано в ячейку B1 ?
 
Запишите макрорекодером копирование объекта. В макросе замените имя объекта на ссылку.
 
Ясно.
Изменено: radioamator - 02.08.2020 01:12:53
 
Может так ?

Код
Sub xyz()
    
    On Error Resume Next
        With Sheets("List1")
            .Shapes(Application.Trim(.Range("B1").Value)).Copy
        End With
        
        If Err.Number <> 0 Then MsgBox "Tut nichego net - konets": Exit Sub
    On Error GoTo 0
    
    With Sheets("List2")
        .Paste Destination:=.Range("A1")
    End With
    
    Application.CutCopyMode = False
    
End Sub
Страницы: 1
Наверх