批量修改Excel中的图片大小方法

最新推荐文章于 2024-12-04 15:00:35 发布

EddyYang168

最新推荐文章于 2024-12-04 15:00:35 发布

阅读量4.8k

点赞数 1

分类专栏：关键技术

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.csdn.net/EddyYang168/article/details/48180727

版权

关键技术专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一段使用VBA编写的宏代码，该宏能够批量调整Excel中包含“图片”或“Picture”名称的图像大小至统一的高度和宽度，并设置图片的比例锁及旋转角度为固定值。此代码适用于需要快速标准化工作表内多个图像的情况。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub Macro4()
'
' Macro4 Macro
' 宏由 app 录制，时间: 2013-8-29
'
' 快捷键: Ctrl+q
'
For Each x In ActiveSheet.Shapes
    If InStr(x.Name, "图片") Or InStr(x.Name, "Picture") Then
        x.Select
        x.LockAspectRatio = msoFalse
        x.Height = 54#
        x.Width = 83.25
        x.Rotation = 0#
    End if
Next
End Sub

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

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