通过vba实现图片的动态缩放变化,思路是通过滚动条指定控制图片大小的宏指令,来实现滚动条对图片大小的控制。
工具/原料
Excel(本教材以Excel2007为例)
方法/步骤
1、先打开一个excel文档(本教材以一个空白文档为例)。
2、插入一张图片(或插入一个形状),本教材以插入一个笑脸为例。PS:如果对象是组合形状(或多个图片),方法类似。
3、按下组合键Alt+F11,进入VBA界面。PS:进入VBA有多种方法,详见最后的参考资料。
4、插入模块:在VBA界面中,点击菜单栏中的“插入”—“模块”。
5、编写代码:Sub滚动条控制图片缩放()Sheets(1).Shapes(1).SelectSelection.ShapeRange.Width=Cells(1,1)Selection.ShapeRange.Height=Cells(1,1)EndSub
6、回到Excel界面,插入滚动条控件。
7、设置滚动条:1.赋予滚动条上述指令代码(即,指定宏);2.设置滚动条格式:在“控制”栏中设置相关属性(注:单元格链接与代码相同,本例中为单元格(1,1))。
8、通过滚动条控制图片缩放。PS:数值大小与设置有关,当前图像尺寸可在单元格(1,1)中获取。