позволяющий сохранять объект Public ObjectBuffer
|
'Буфер, позволяющий сохранять объект Public ObjectBuffer As Range Public Sub CopyObject() 'Этот макрос копирует выделенный объект в буфер Set ObjectBuffer = Selection.Range End Sub Public Sub PasteObject() 'Этот макрос выполняет операцию, обратную копированию. 'Объект из буфера вставляется в точку, заданную курсором. 'Поскольку объект может быть сложным и содержать, например, 'рисунки, то используется техника копирования через стандартный буфер! ObjectBuffer.Copy Selection.PasteSpecial End Sub |
| Листинг 2.4. |
| Закрыть окно |