Лоуэлл разработал макрос для копирования данных выбранных ячеек в определенное место на другом листе. Некоторые из исходных ячеек содержат изображения, и он хотел бы, чтобы эти изображения также были скопированы. Лоуэлл задается вопросом, как он может заставить макрос распознавать, находится ли изображение в исходной ячейке, а затем копировать изображения на новый рабочий лист вместе с данными.
Если вы используете метод копирования с выделением объект, вы можете скопировать все, включая изображения, из источника в цель. Рассмотрим следующий короткий макрос:
Sub CopyPict () Sheets («Sheet1»). Select Range («B3: F7»). Select Selection.Copy Sheets («Sheet3»). Select Range («Sheet1»). Select Range («B3: F7»). Select Selection.Copy Sheets («Sheet3»). Select Range ( «H8»). Выберите ActiveSheet.PasteEnd Sub
Предполагая, что некоторые из ячеек в исходном диапазоне (B3: B7 на Sheet1) содержат изображения, тогда метод Paste вставит их в целевой ( ячейка H8 на листе 3). Фактически, этот метод аналогичен использованию копирования и вставки вручную с информацией.
Если вы идентифицируете и перемещаете информацию другим способом (возможно, используя промежуточную переменную вместо копирования в Буфер обмена), то вполне возможно, что изображения не копируются. Если вам нужно выполнить некоторую обработку данных перед их вставкой в целевую ячейку, вы можете использовать метод Paste, как показано выше, а затем обработать данные и поместить их обратно в целевую ячейку. Это позволит не искажать изображения цели.
Источник: