標題: [發問] 關於圖檔置中 [打印本頁]

---

作者: HSIEN6001    時間: 2014-3-30 22:07     標題: 關於圖檔置中

請問,如何應用VBA將所有圖檔,在該儲存格欄位置中
[attach]17914[/attach]

---

作者: GBKEE    時間: 2014-3-31 20:55

回復 1# HSIEN6001

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim P As Pictures, I As Integer, H1, H2
   
4.     Set P = Worksheets("總表").Pictures
   
5.     For I = 1 To P.Count
   
6.         With P(I)
   
7.             H1 = .TopLeftCell.Height
   
8.             H2 = .Height
   
9.             .Top = .TopLeftCell.Top + (H1 - H2) / 2   '圖片,垂直置中
   
10.             H1 = .TopLeftCell.Width
    
11.             H2 = .Width
    
12.             .Left = .TopLeftCell.Left + (H1 - H2) / 2 '圖片,水平置中
    
13.         End With
    
14.     Next
    
15. End Sub

複製代碼

---

作者: HSIEN6001    時間: 2014-3-31 22:10

回復 2# GBKEE

謝謝您的相助!!
問題解決了

感恩!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)