pictures物件實作(工程登記卡)
一般的報表常常用Excel實作，但這個報表比較重要的是他需要貼不同型式的渠道示意圖。 有關圖片的部分在填寫竣工資料也有施工照片與查驗照片等等表格，但針對圖片物件的描述並不是那麼豐富，因此本文主要在練習如何使用pictures物件。 pictures物件為picture物件的集合，透過pictures.insert(path)可以將指定的路徑照片給插入，因為有些照片太大或太小，可以使用pictrue物件的width跟height屬性調整，以下先讀取資料庫中的ch_type判斷其為何種型式再用select case去索取需要的照片檔，進而貼上。 圖一、工程登記卡大致長相 圖二、工程登記卡之基本資料庫 Private g_name As String Public ch_name As String Private ch_location As String Public ch_type As Byte Private ch_se As String Public ch_length As Double Private shtModel As Object Private Sub Class_Initialize() Set shtModel = Sheets("工程登記卡(模板)") End Sub Sub CollectData(ByVal r As Double) With Sheets("Main") 'BasicData g_name = .Cells(r, 1) ch_name = .Cells(r, 2) ch_location = .Cells(r, 3) ch_type = .Cells(r, 4) ch_se = Format(.Cells(r, 5), "0+000") & "~" & Format(.Cells(r, 6), "0+000") ch_length = .Cells(r, 6) - .Cells(r, 5) End With End Sub Sub CreatePi