With Sheet1 .Range(range_str).CopyPicture Set chtObject = ActiveSheet.ChartObjects. _ Add(500, 100, .Range(range_str).Width, .Range(range_str).Height) chtObject.Activate chtObject.Chart.Paste End With
时间: 2024-04-12 17:34:36 浏览: 104
vba批量存储excel图片
5星 · 资源好评率100%
这段代码是在Sheet1上进行操作的。首先,它使用CopyPicture方法将指定范围的单元格复制为图片。然后,它在指定位置使用Add方法创建一个图表对象,并设置其位置和大小为与复制的范围相同。接下来,它激活图表对象,并使用Paste方法将复制的图片粘贴到图表中。最后,使用With语句结束对Sheet1的操作。
阅读全文