麻辣家族討論版版 - Powered by Discuz! Board

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
'刪掉函數到這裡

複製代碼