如何用數組OR 其他方法加速?

basarasy

請問大大如何用 數組 MYarr() 加速 OR 其他方法加速 以下的碼?
因為圖太多,加入時很慢 :'(

1. Private Sub Ex()
   
2.    
   
3.     Dim Ps, Pc, A
   
4.     With Application.FileDialog(msoFileDialogOpen)
   
5.         .Title = "尋找圖片檔"
   
6.         .AllowMultiSelect = True   '多重選取檔案
   
7.         .ButtonName = "開啟圖片檔"
   
8.         .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
   
9.         .FilterIndex = 1
   
10.         If .Show = False Then
    
11.             MsgBox "沒有選擇任何圖片檔", vbOKOnly + vbExclamation : Exit Sub
    
12.         Else
    
13.            Set Ps = .SelectedItems
    
14.         End If
    
15.     End With
    
16.    
    
17. Application.ScreenUpdating = False
    
18. 
    
19.     Sheet3.Select
    
20.    
    
21.     With ActiveSheet
    
22.       .Range("A1:A20000").Value = ""
    
23.      .Pictures.Delete
    
24.     Set A = .Range("A1")
    
25.            
    
26.     For Each Pc In Ps
    
27.                        
    
28.     .Hyperlinks.Add Anchor:=A, Address:=Pc, TextToDisplay:=Pc
    
29.                
    
30.        With .Pictures.Insert(Pc)
    
31.             .Height = 34
    
32.             .Width = 54
    
33.             .Left = A.Offset(, 1).Left
    
34.             .Top = A.Offset(, 1).Top
    
35.         End With
    
36.         Set A = A.Offset(1)
    
37.     Next
    
38.   
    
39.     .Shapes.SelectAll              
    
40.     Selection.Placement = xlMoveAndSize
    
41.    
    
42.     End With
    
43.    
    
44.     Sheet1.Select
    
45.    
    
46.     Application.ScreenUpdating = True
    
47.       
    
48.     Range("A2").Select
    
49.         
    
50.     MsgBox "插入完成"
    
51.   
    
52. End Sub

複製代碼

basarasy

回復 2# GBKEE

請問GBKEE大大,在For  Next 時 ,可以用數組加速 嗎?

basarasy

回復 4# GBKEE
謝謝GBKEE大大的方法.
但有方法像插入圖片的嗎?
因為圖片左邊是 No. 和 给人看圖片 打注解的列
還有用篩選時圖片也只出現篩選了的圖片.

basarasy

回復 6# GBKEE


    我做了個例子

下載 (57.84 KB)

2011-3-16 19:53

篩選後

下載 (25.81 KB)

2011-3-16 19:53

basarasy

回復 8# GBKEE

因為圖片一定要放出來给人看，看見圖片才知道注解要打什麼．

basarasy

回復 10# GBKEE
　謝謝GBKEE大大，試過真的加快了．