问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

excel中关于图片放大的VBA

发布网友 发布时间:2022-05-08 09:50

我来回答

2个回答

热心网友 时间:2024-01-21 23:26

Const beishu = 2 '在这里调整放大倍数,当前为2倍
Sub ZhaoPian()
Dim target, sht, rn, mypath, shp, i
For Each shp In Sheets(1).Shapes
  shp.OnAction = "ActionClick"
Next
End Sub

Sub ActionClick()
Static n, x
    Application.ScreenUpdating = False
If x = Application.Caller Then
    n = n + 1
    If (n Mod 2) = 1 Then
    With Sheet1.Shapes(Application.Caller)
        .ScaleHeight beishu, msoFalse, msoScaleFromTopLeft
        .ScaleWidth beishu, msoFalse, msoScaleFromTopLeft
        .ZOrder msoBringToFront
    End With
    Else
    With Sheet1.Shapes(Application.Caller)
        .ScaleHeight 1 / beishu, msoFalse, msoScaleFromTopLeft
        .ScaleWidth 1 / beishu, msoFalse, msoScaleFromTopLeft
        .ZOrder msoBringToFront
    End With
    End If
Else
    If (n Mod 2) = 1 Then
      With Sheet1.Shapes(x)
        .ScaleHeight 1 / beishu, msoFalse, msoScaleFromTopLeft
        .ScaleWidth 1 / beishu, msoFalse, msoScaleFromTopLeft
        .ZOrder msoBringToFront
      End With
      With Sheet1.Shapes(Application.Caller)
        .ScaleHeight beishu, msoFalse, msoScaleFromTopLeft
        .ScaleWidth beishu, msoFalse, msoScaleFromTopLeft
        .ZOrder msoBringToFront
      End With
    Else
      With Sheet1.Shapes(Application.Caller)
        .ScaleHeight beishu, msoFalse, msoScaleFromTopLeft
        .ScaleWidth beishu, msoFalse, msoScaleFromTopLeft
        .ZOrder msoBringToFront
      End With
      n = n + 1
    End If
      x = Application.Caller

End If
    Application.ScreenUpdating = True
End Sub

热心网友 时间:2024-01-21 23:26

.ScaleHeight 2, msoFalse, msoScaleFromTopLeft
.ScaleWidth 2, msoFalse, msoScaleFromTopLeft

修改 2 看看?0.5也一样。修改试试。
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
赵玉平名家论坛 赵玉平人物经历 杭州市汽车西站 现在能提前几天售票啊? 请问杭州西站汽车票可以提前几天买? 杭州汽车西站在节假日的时候需要提前买票的吗 散步有助于减肥吗 魑瑟忝箜莫尘读什么 端午送什么 端午节家里要摆放什么东西 龙舟是如何制作的? EXCEL中通过VBA生成的网页中怎样能实现鼠标停留图片放大 VBA批注图片时,能否使批注框的大小大于图片的大小? word vba 处理图片问题,能否以水平和垂直两个方向来设置图片的大小? EXCEL用VBA如何实现循环更换表中的图片,并更改成指定尺寸 ppt vba 控制图片大小的方法和技巧,主要用来制作进度条(放映状态) VBA图像框加载的图片那个属性能设置图片大小随图像框大小而改变 VBA如何用厘米调整插入图形尺寸 EXCEL VBA分别指定图片大小? 为什么中国奥运会要在北京举行? 为啥要开奥运会? 为什么要开奥运会 开奥运会的目的 东京奥运会火炬传递开幕式将闭门举行,日本为什么一定要坚持开奥运会? 为什么 北京要开奥运会? 为什么开奥运会?? 居住证满一年续签需要什么资料 居住证到期续签带什么资料 续签居住证都需要哪些材料 居住证续期要什么资料 22朵红玫瑰代表什么? VBA代码,让已经复制到Excel里面的所有图片 长6CM宽9CM ppt中用vba批量设置图片大小,提示属性的使用无效,高手看看 哪里问题 vba怎么把图片等比例缩放放进指定的单元格区域? Hi nova使用技巧 视频压缩app哪个好用? 扶摇大结局是什么 扶摇各个角色结局揭晓 扶摇大结局是什么,人物结局 扶摇的结局是死了吗? 电视剧《扶摇》的原著小说结局是什么? 扶摇小说结局是什么 扶摇和长孙无极有孩子吗府辰国际 扶摇小说结局是什么 最后谁和谁在一起了 扶摇电视剧结局是什么 是悲剧还是喜剧 电视《扶摇》中人物小说里结局都是怎样的? 扶摇原著小说长孙无极的结局是什么 最后和扶摇在一起 电视剧扶摇结局是悲还是喜 扶摇和长孙无极在一起了吗 扶摇最后谁和谁在一起了 小说结局是什么 扶摇电视剧长孙无极结局是什么 与孟扶摇历经磨难终成 小说《扶摇皇后》大结局剧透 扶摇最后和谁在一起了 我购买了一张联通物联网卡,这个月10几天就扣了一个月100G的流量,我不认可这个结果想查流量明细 数据备份的意义