Доброго дня всем и хорошей погоды!
Возникла необходимость создать макрос для использования Камеры Excel - с возможностью выбора диапазона и места вставки.
В интернете нашёл код VBA под это дело..., но при обработке вставляет только изображение - без последующего изменения данных, плюс ругается на последнюю строку в коде: Selection.Formula = UserRange.Address
Сам код:
Пробовал последние строки заменять на:
ActiveSheet.Pictures.Paste Link:=True
Но что-то не работает...
Прошу Вашей помощи
Благодарю!
Возникла необходимость создать макрос для использования Камеры Excel - с возможностью выбора диапазона и места вставки.
В интернете нашёл код VBA под это дело..., но при обработке вставляет только изображение - без последующего изменения данных, плюс ругается на последнюю строку в коде: Selection.Formula = UserRange.Address
Сам код:
Код |
---|
Sub Camera() Dim MyPrompt As String Dim MyTitle As String Dim UserRange As Range Dim OutputRange As Range Application.ScreenUpdating = True 'Prompt user for range to capture MyPrompt = "Выберите диапазон для отслеживания!" MyTitle = "Выделение диапазона" On Error Resume Next Set UserRange = Application.InputBox(Prompt:=MyPrompt, _ title:=MyTitle, Default:=ActiveCell.Address, Type:=8) If UserRange Is Nothing Then End On Error GoTo 0 'Copy range to Clipboard as picture UserRange.CopyPicture 'Prompt user for range to paste to MyPrompt = "Укажите ячейку для вставки!" MyTitle = "Выбор места для камеры" On Error Resume Next Set OutputRange = Application.InputBox(Prompt:=MyPrompt, _ title:=MyTitle, Default:=ActiveCell.Address, Type:=8) If OutputRange Is Nothing Then End On Error GoTo 0 'Paste picture to output range OutputRange.PasteSpecial Selection.Formula = UserRange.Address End Sub |
ActiveSheet.Pictures.Paste Link:=True
Но что-то не работает...
Прошу Вашей помощи
Благодарю!