Excel插入图片实现单击放大或缩小

1 篇文章 0 订阅

Excel插入图片实现单击放大或缩小

一、打开Excel,Alt+F11打开VBA(VBA自行安装)

二、双击ThisWorkbook,输入VBA代码

Sheet1为的工作薄1

Private Sub Workbook_Open()
    Dim cName$
    On Error Resume Next
    For Each a In Sheet1.Shapes
	If a.Type = 1 Or a.Type = 13 Then
	     a.OnAction = "test"
	     cName = a.TopLeftCell.Address(0,0)
	     Do
		 a.Name = cName
		 If Err = 0 Then Exit Do
		 cName = cName & "_0"
		 Err.Clear
	     Loop
	End If
    Next
End Sub

如图:

三、右键左边Project下方空白处,选择插入-模块,在模块处输入VBA代码

Sub test()
On Error Resume Next
For Each a In ActiveSheet.Shapes
    If a.Type = 1 Or a.Type = 13 Then
        If a.Name = Application.Caller And a.AlternativeText = Empty Then
            a.AlternativeText = a.Height & Chr(28) & a.Width
            a.Height = a.Width * 3
            a.Width = a.Width * 3
            a.ZOrder msoBringToFront
        Else
            a.Height = Split(a.AlternativeText, Chr(28))(0)
            a.Width = Split(a.AlternativeText, Chr(28))(1)
            a.AlternativeText = Empty
        End If
    Err.Clear
End If
Next
End Sub

 如图:

四、保存后关掉VBA,在Sheet1插入图片,把图片缩小(如果想放大图片清晰,需要在图片格式-压缩图片处勾选最高清的图片)

五、插入图片后,调整后保存关掉,重新打开即可实现单击放大或缩小

代码非原创

  • 6
    点赞
  • 21
    收藏
    觉得还不错? 一键收藏
  • 5
    评论
评论 5
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值