Как скопировать лист как изображение и вставить его в определенную ячейку? - PullRequest
Новая
       7

Как скопировать лист как изображение и вставить его в определенную ячейку?

0 голосов
/ 31 октября 2018

Ситуация - я разрабатываю метод передачи информации от смены к смене. Он должен быть достаточно жестким, чтобы оставаться стандартизированным, но достаточно гибким, чтобы люди могли объяснить множество возникающих ситуаций. Моя идея состоит в том, что они заполняют свой собственный рабочий лист и нажимают кнопку сохранения, которая собирает эту информацию в централизованный рабочий лист, который показывает все области.

Проблема - я не могу понять, как сохранить лист и поместить его в комбинированный проход вниз, не делая так, чтобы комбинированный проход выглядел ужасно.

Попытка решения - я подумал, чтобы рабочий лист (заполненный сотрудником) сохранялся в виде изображения и вставлялся в комбинированный лист, но у меня возникли проблемы с автоматическим изменением размера ячейки по размеру изображения.

Идеальное решение - Создание размера самой ячейки, чтобы она автоматически соответствовала изображению.

Я открыт для идей о том, как обращаться с этим по-другому. Я новичок в Excel и, скорее всего, не знаю всех доступных вариантов.

ТЕКУЩИЙ КОД: 

Sub Save()
Worksheets("Leads").Range("A1:G14").CopyPicture
    Worksheets("Combined").Activate
    Worksheets("Combined").Paste
    CenterMe ActiveSheet.Shapes(1), Range("C6:D6")
End Sub

1 Ответ

0 голосов
/ 01 ноября 2018

Я нашел способ вставить картинку в лист.

Последний код, который я получил: 

Sub Save()
Worksheets("Leads").Range("A1:G14").CopyPicture
Worksheets("Combined").Activate
Worksheets("Combined").Paste Destination:=Worksheets("Combined").Range("C6:D6")
'So the image will be pasted at the destination range given
'You may also add a cell address instead of cell range
End Sub

Источник - https://docs.microsoft.com/en-us/office/vba/api/excel.worksheet.paste

Надеюсь, это поможет!

...