012-优化“B列图片右移”-疑难千寻千解丛书（VBA）

小妖

ET疑难千寻千解丛书之EXCEL2010编程与实践

罗刚君 章兰新 黄朝阳 编著

疑难12  
如何优化过程“B列所有图片右移”
如图所示的B列图片需要全部向右移动两个单位，VBA代码如下。如何对它进行优化使程序效率更高呢？

1. 
   
2. Sub B列图右移2个单位()
   
3.     Dim Sh As Shape, i As Integer
   
4.     i = 2 '指定变量基数2，表示图片从第二行开始
   
5.     For Each Sh In Sheets(1).Shapes  '循环所有图片
   
6.     '如果图片左上角地址等于i行2列的单元格地址
   
7.         If Sh.TopLeftCell.Address = Cells(i, 2).Address Then
   
8.             i = i + 1  '累加变量
   
9.             Sh.Select  '选择处于B列的图片
   
10.             Selection.Left = Selection.Left + 2  '将选择的对象右移2个单位
    
11.         End If
    
12.     Next Sh
    
13. End Sub
    

复制代码

è解决方案

删除代码中的Select语句，直接移动对象。
í操作方法
步骤1        
修改选择对象的语句，直接移动对象，代码如下：

1. 
   
2. Sub B列图片右移2个单位2()  '不选择对象而移动
   
3.     Dim Sh As Shape, i As Integer
   
4.     i = 2
   
5.     For Each Sh In Sheets(1).Shapes
   
6.         If Sh.TopLeftCell.Address = Cells(i, 2).Address Then
   
7.             i = i + 1
   
8.             Sh.Left = Selection.Left + 2  '将符合条件的对象Sh右移两个单位
   
9.         End If
   
10.     Next Sh
    
11. End Sub
    

复制代码

步骤2        
分别执行两段代码，它们可以实现相同功能，但在执行效率上大大不同，图片越多，差异越大。

=============================

以上摘自《EXCEL2010编程与实践》

小妖

妖言：

传说SELECT是录制宏的产物，基本上是T得越远越好……
不过就这么人见人恨的SELECT，居然在限制打开工作表中派上了大用场，嘿嘿……

raulerini

妖妖的解读和书一样的经典！{:25:}

chensir

hao                              

UNA123

{:011:}{:011:}{:011:}{:011:}