如何将工作表复制为图像并将其粘贴到特定单元格中？

Question

情况 - 我正在设计一种将信息从一个班次传递到另一个班次的方法。它需要足够严格以保持标准化，但又需要足够灵活以便人们可以解释发生的无数情况。我的想法是，他们填写自己的工作表并点击保存按钮，将这些信息收集到一个显示所有区域的集中工作表中。

问题 - 我无法弄清楚如何保存工作表并将其放入组合传递中，而不会使组合传递看起来很糟糕。

尝试的解决方案 - 我想将工作表（由员工填写）保存为图像并粘贴到合并的工作表中，但我无法让它自动调整单元格大小以适合图像。

理想解决方案 - 使单元格大小自动适应图像。

我愿意就如何以不同方式处理此问题提出想法。我是 excel 的新手，很可能不了解所有可用的选项。

当前代码：

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

Answer 1

我想出了一个把图片粘贴到工作表中的方法。

我得到的最终代码是：

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

希望对您有所帮助！

如何将工作表复制为图像并将其粘贴到特定单元格中？

How do you copy a worksheet as an Image and paste it into a specific cell?

excel

vba

excel-2016