怎样使用VBA放大单元格数据?

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行Private Sub Worksheet_SelectionChange(蚱澄堆别ByVal Target As Range) Application.EnableEvents=False '禁用事件 On Error Resume Next '出错时继续执行 ActiveSheet.DrawingObjects.Delete '删除产生的对象 Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture '将选项复制为图片 Target.Cells(1, 1).Offset(0, 2).Select '将光标移到后两列 ActiveSheet.Pictures.Paste.Select With Selection.ShapeRange .ScaleWidth 2, msoFalse, msoScaleFromTopLeft '将图片增大三倍，可以自己调整 .ScaleHeight 2, msoFalse, msoScaleFromTopLeft .Fill.ForeColor.SchemeColor=3 '设置前景填充色 End With Target.Activate '激活单元格 Application.EnableEvents=True '恢复事件End Sub

5、在“Sheet1”工作表中选择空白单元格，程序将忽略；选择非空单元格后则放大3倍显示