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