[發問] 請教如何依序將圖片貼於工作表之有限區域內?

cmo140497

Dear 各位大大及版主 :
小弟有一問題想請教 :
工作表1內有不等數之圖片,要如何依序將圖片貼於工作表2之有限區域內,如果工作表2之有限區域width不足以再貼上一張圖的width,則跳下一列(無法指定cells),因為圖片長寬大小不一定

工作表1如下圖

下載 (42.57 KB)

2013-5-6 15:38

工作表2如下圖

下載 (97.96 KB)

2013-5-6 15:39

question2_2013-05-06.zip (488.24 KB)

下載次數: 17

2013-5-6 15:40

cmo140497

回復 4# Hsieh


    感謝版主的指教,又學到了一招,感恩!

Hsieh

回復 3# cmo140497


    parent就是取得物件的父階層物件
Picuure是依附在工作表上的物件
所以
Pictures(x).Parent就是該圖片所在的工作表

cmo140497

回復 2# Hsieh


    請教版主,Pictures.parent 這個parent最主要用意,是要取得Pictures 物件的參數還是儲存格的,看不是很懂,再煩請版主指教,感恩?

Hsieh

回復 1# cmo140497

1. Sub test()
   
2. Dim Pc As Picture, w#, k#, t#, h#
   
3. Application.ScreenUpdating = False
   
4. 工作表1.Pictures.Copy
   
5.    With 工作表2
   
6.    .Pictures.Delete
   
7.    w = .[AY2].Left + .[AY2].Width
   
8.    k = .[B2].Left
   
9.    t = .[B2].Top
   
10.       .Paste
    
11.        For Each Pc In .Pictures
    
12.           With Pc
    
13.           k = IIf(k + .Width > w, .Parent.[B2].Left, k)
    
14.           t = IIf(k = .Parent.[B2].Left, t + h, t)
    
15.              .Top = t
    
16.              .Left = k
    
17.              h = IIf(h < .Height, .Height, h)
    
18.              h = IIf(k = .Parent.[B2].Left, .Height, h)
    
19.              k = k + .Width
    
20.           End With
    
21.        Next
    
22.        .[B2].Select
    
23.    End With
    
24.    Application.ScreenUpdating = True
    
25. End Sub

複製代碼