我在excel单元格内嵌入了一张图片,可图片太大,我把图片缩小到与单元格一样的大小,可是必须拉取拖大才能看清,我能不能像微博那样,打开excel文档的时候图片是略缩图,我要查看图片的时候,双击后就放大?
在excel对象中:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 And Target.Column = 1 Then
ActiveSheet.Shapes(1).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 405#
End If
If Target.Row = 2 And Target.Column = 1 Then
ActiveSheet.Shapes(1).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 20
End If
End Sub
双击单元格A1放大到高度405
双击单元格A2缩小到高度20(如果不缩小,打开文件后会自动缩小的)
备注:将我的图片删除,插入你的图片