情况-我正在设计一种方法,可以在轮班之间传递信息。它必须足够僵化以保持标准化,但又要足够灵活以使人们能够解释发生的各种情况。我的想法是,他们填写自己的工作表并单击“保存”按钮,该按钮将这些信息收集到显示所有区域的集中工作表中。
问题-我无法弄清楚如何保存工作表并将其放入合并的传递中,而不会使合并的传递看起来很残酷。
尝试的解决方案-我以为使工作表(由员工填写)保存为图像并粘贴到组合的工作表中,但是我无法使其自动调整单元格的大小以适合图像。
理想的解决方案-使像元大小自动适应图像。
我愿意就如何以不同的方式处理这个问题提出意见。我对excel非常陌生,很可能不知道所有可用的选项。
当前代码:
Sub Save()
Worksheets("Leads").Range("A1:G14").CopyPicture
Worksheets("Combined").Activate
Worksheets("Combined").Paste
CenterMe ActiveSheet.Shapes(1), Range("C6:D6")
End Sub
答案 0 :(得分:0)
我想出了一种将图片粘贴到工作表中的方法。
我得到的最终代码是:
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
希望这会有所帮助!