1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行Private Sub UserForm_Clic氯短赤亻k() Sheet1.UsedRang髫潋啜缅e.Select Selection.CopyPicture With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width,Selection.Height).Chart .Paste .Export ThisWorkbook.Path & "\tmp.jpg" .Parent.Delete End With UserForm1.Picture=LoadPicture(ThisWorkbook.Path & "\tmp.jpg") VBA.Kill ThisWorkbook.Path & "\tmp.jpg"End Sub
5、用快捷键F5运行窗体,然后单击窗体背景,工作表中的已用区域已转换成图片显示在窗体中