一段简单的VBA代码,让你自如操作Excel!
抛砖引玉的场景需求:要求工作表中的所有图形或者图片的方位和尺寸与所在左上角的单元格一致!
代码示例
在标准模块中加入如下代码即可实现上面的演示功能。
Sub 图片图形自动适应单元格调整大小()Dim sh As ShapeFor Each sh In ActiveSheet.Shapes sh.LockAspectRatio = False sh.Left = sh.TopLeftCell.Left sh.Top = sh.TopLeftCell.Top sh.Width = sh.TopLeftCell.Width sh.Height = sh.TopLeftCell.HeightNextEnd Sub
动手试一试,屏幕前的你, 复制代码运行下吧~~!
更多Excel VBA编程知识(职场牛人的必备秘技),可下载安装使用一款优秀职场人必备的工具《神奇的VBA》插件,一款嵌入进Excel Ribbon界面,打开任意Excel工作簿就能随时查阅学习VBA编程的Excel 插件。
插件下载地址戳下面链接:
《神奇的VBA》-职场牛人都在使用的Excel插件