- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
5#
發表於 2012-4-9 07:15
| 只看該作者
回復 4# play9091
不好意思 沒2010版 不知如何解答 ,修改程式碼試試看- Option Explicit
- '***** 刪掉這些
- Private Type TGUID
- Data1 As Long
- Data2 As Integer
- Data3 As Integer
- Data4(0 To 7) As Byte
- End Type
- Private Declare Function OleLoadPicturePath Lib "oleaut32" ( _
- ByVal szURLorPath As Long, ByVal punkCaller As Long, _
- ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, _
- ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long
- '***** 刪掉到理
- Dim 網路圖片 As String, 圖片 As String
- Private Sub UserForm_Initialize()
- Dim xLen As Integer, E As Worksheet
- '網路圖片 = "http://t1.gstatic.com/images?q=tbn:ANd9GcTW_IhT0LcFWjucAjA_OMOpg4igw4IA2hyKfoJMiMSzyF-fRUERNg"
- '這網路圖片可另行指定 PC上的圖檔
- '網路圖片 = "D:\EX1.GIF" '你須指定圖檔
- 網路圖片 = "" '或是不指定圖檔
- 圖片 = ThisWorkbook.Path & "\圖片.gif"
- With Application
- .Visible = False
- .WindowState = xlMaximized
- Me.Width = .Width - (.Width * 0.06)
- Image1.Width = Me.Width - (.Width * 0.32)
- End With
- With ComboBox1
- For Each E In Sheets
- .AddItem E.Name
- xLen = IIf(xLen > Len(E.Name), xLen, Len(E.Name))
- Next
- .ListWidth = 5 * xLen
- End With
- ListBox1.MultiSelect = fmMultiSelectExtended
- ListBox2.MultiSelect = fmMultiSelectExtended
- Image1.Picture = LoadPicture(網路圖片)
- End Sub
- '刪掉這函數
- Private Function LoadPicture(ByVal strFileName As String) As IPicture
- Dim IID As TGUID
- With IID
- .Data1 = &H7BF80980
- .Data2 = &HBF32
- .Data3 = &H101A
- .Data4(0) = &H8B
- .Data4(1) = &HBB
- .Data4(2) = &H0
- .Data4(3) = &HAA
- .Data4(4) = &H0
- .Data4(5) = &H30
- .Data4(6) = &HC
- .Data4(7) = &HAB
- End With
- On Error GoTo ERR_LINE
- OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture
- If LoadPicture Is Nothing Then GoTo ERR_LINE
- Exit Function
- ERR_LINE:
- MsgBox "嘗試失敗!"
- End Function
- '刪掉函數到這裡
|
|
發表於 2012-3-11 16:32
| 
