怎样使用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倍显示