Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Kasım 2012 Salı

Get WMF Object Info


'UserForm1

'A. Available References List
'1) Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL    
'2) Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXE    
'3) Name: stdole, Description: OLE Automation, FullPath: C:\Windows\SysWOW64\stdole2.tlb '4) Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE11\MSO.DLL    
'5) Name: MSForms, Description: Microsoft Forms 2.0 Object Library, FullPath: C:\Windows\SysWOW64\FM20.DLL
'B. Available Tools List
'1) Image1, Label1, Label2    
'2) Label3, Frame1, Listbox1    
'3) ComboBox1, CommandButton1
'C. Windows Versions
'01) Windows 1.0 ; Kasım 1985    
'02) Windows 2.0 ; Nisan 1987    
'03) Windows 3.0 ; Mayıs 1990    
'04) Windows 3.1 ; Nisan 1992    
'05) Windows NT 3.1 ; Ağustos 1993    
'06) Windows 3.11 ; Şubat 1994    
'07) Windows NT 3.5 ; Eylül 1994    
'08) Windows 95 ; Ağustos 1995    
'09) Windows NT 3.51 ; Haziran 1995    
'10) Windows NT 4.0 ; Ağustos 1996    
'11) Windows 98 ; Haziran 1998    
'12) Windows 98 SE ; Mayıs 1999    
'13) Windows ME ; Eylül 2000    
'14) Windows 2000 ; Şubat 2000    
'15) Windows 2000 Datacenter ; Ağustos 2000    
'16) Windows XP ; Ekim 2001    
'17) Windows Server 2003 ; Mart 2003    
'18) Windows Vista ; Haziran 2007    
'19) Windows 7 ; Haziran 2008    
'20) Windows 8 ; ?
'D. Example Pictur URL
'01) Mona Lisa; https://skydrive.live.com/?cid=453d1b1a593a53f0#cid=453D1B1A593A53F0&id=453D1B1A593A53F0%21204    
'02) Girl With a Pearlearring; https://skydrive.live.com/?cid=453D1B1A593A53F0&id=453D1B1A593A53F0%21205
Option Explicit
Private i As Single
Private ii As Single
Private Adet As Long
Private hWinVersion As String
Private Data As Variant
Private hShell As Object
Private hFolder As Object
Private hFolderItem As Object
Private sFile As String
Private sFolder As Variant
Private sExt As String
Private hPart As Variant
Private sPart As String
Private hFile As New stdole.StdPicture
Private Const sPixel As Double = 26.458 'bmp, jpg, jpe, gif, tif, png, ico, rle, wmf files convertor pixel = raw / sPixel
Private Const sPoint As Double = 72 / 96 'Point = Pixel * sPoint
Private Const sMMeter As Double = 4 * 72 / 96 'mm = point / sMMeter
Private Sub UserForm_Initialize()
On Error Resume Next    
Me.Caption = "[PBİD®] Get WMF Object Info"    
Call Ekran_Kur
End Sub
Private Sub ComboBox1_Change()
On Error Resume Next    
Call Ekran_Temizle    
'hWinVersion = Application.OperatingSystem    
hWinVersion = ComboBox1.Value    
Call WinVersion_Kontrol
End Sub
Private Sub CommandButton1_Click()
On Error Resume Next    
sFile = Application.GetOpenFilename("Windows Meta Files (*.bmp; *.jpg; *.jpe; *.gif; *.tif; *.png; *.ico; *.wmf), *.bmp; *.jpg; *.jpe; *.gif; *.tif; *.png; *.ico; *.wmf", 1, "Select Media File", "Open", False)    
If sFile <> False Then
If sFile <> "" Then
Call Veri_Getir
End If
End If
End Sub
Private Sub Veri_Getir()
On Error Resume Next    
Label3.Caption = " " & sFile    
Set hFile = LoadPicture(sFile)    
Frame1.Picture = hFile    
With ListBox1
Data = VBA.FileLen(sFile)        
.List(0, 1) = VBA.Format(Data, "#,##0")        
Data = hFile.Width        
.List(1, 1) = VBA.Format(Data, "#,##0")        
Data = hFile.Width / sPixel        
.List(2, 1) = VBA.Format(Data, "#,##0")        
Data = hFile.Width * sPoint / sPixel        
Frame1.ScrollWidth = Data        
.List(3, 1) = VBA.Format(Data, "#,##0")        
Data = (hFile.Width * sPoint / sPixel) / sMMeter        
.List(4, 1) = VBA.Format(Data, "#,##0")        
Data = hFile.Height        
.List(5, 1) = VBA.Format(Data, "#,##0")        
Data = hFile.Height / sPixel        
.List(6, 1) = VBA.Format(Data, "#,##0")        
Data = hFile.Height * sPoint / sPixel        
Frame1.ScrollHeight = Data        
.List(7, 1) = VBA.Format(Data, "#,##0")        
Data = (hFile.Height * sPoint / sPixel) / sMMeter        
.List(8, 1) = VBA.Format(Data, "#,##0")
End With    
hPart = VBA.Split(sFile, "\")    
For i = LBound(hPart) To UBound(hPart)
sFolder = VBA.Left(sFile, VBA.Len(sFile) - VBA.Len(hPart(i)))
Next i    
sExt = VBA.Right(hPart(i - 1), 3)    
sPart = hPart(i - 1)    
Set hShell = CreateObject("Shell.Application")    
Set hFolder = hShell.Namespace(sFolder)    
For Each hFolderItem In hFolder.Items
If hFolderItem & "." & sExt = sPart Then
Adet = ListBox1.ListCount - 9            
For i = 0 To Adet
Data = hFolder.GetDetailsOf(hFolderItem, i)                
ListBox1.List((i + 9), 1) = Data                
VBA.DoEvents
Next i
End If
Next hFolderItem
End Sub
Private Sub Ekran_Kur()
On Error Resume Next    
With Me
.BackColor = &HE0E0E0        
.Height = 430        
.Width = 724        
.Picture = LoadPicture("") 'Resim(URL1)        
.PictureAlignment = fmPictureAlignmentCenter        
.PictureSizeMode = fmPictureSizeModeClip        
.PictureTiling = True        
.SpecialEffect = fmSpecialEffectFlat        
With Image1
.Top = 6            
.Left = 6            
.Height = 24            
.Width = 24            
.BackStyle = fmBackStyleTransparent            
.BorderStyle = fmBorderStyleSingle            
.BorderColor = vbBlue            
.Picture = Resim(URL2)            
.PictureAlignment = fmPictureAlignmentCenter            
.PictureSizeMode = fmPictureSizeModeClip            
.PictureTiling = False
End With        
With Label1
.Left = 36            
.Top = 6            
.Height = 12            
.Width = 420            
.Caption = "Mustafa ULUSARAÇ"            
.BorderStyle = fmBorderStyleNone            
.SpecialEffect = fmSpecialEffectFlat            
.BackStyle = fmBackStyleTransparent            
.Font.Bold = True            
.Font.Name = "Arial"            
.ForeColor = vbBlue
End With        
With Label2
.Left = 36            
.Top = 18            
.Height = 12            
.Width = 420            
.Caption = "01ulusarac@superonline.com"            
.BorderStyle = fmBorderStyleNone            
.SpecialEffect = fmSpecialEffectFlat            
.BackStyle = fmBackStyleTransparent            
.Font.Bold = True            
.Font.Name = "Arial"            
.ForeColor = vbBlue
End With        
With Label3
.Left = 6            
.Top = 36            
.Height = 12            
.Width = 708            
.Caption = ""            
.SpecialEffect = fmSpecialEffectEtched            
.BackStyle = fmBackStyleTransparent            
.ForeColor = &H808000
End With        
With ComboBox1
.Left = 6            
.Top = 48
.Height = 18            
.Width = 264            
.BackStyle = fmBackStyleTransparent            
.SpecialEffect = fmSpecialEffectEtched            
.ForeColor = vbBlue            
.Font.Bold = True            
.AddItem "Windows 2000"            
.AddItem "Windows XP"            
.AddItem "Windows Server 2003"            
.AddItem "Windows Vista"            
.AddItem "Windows 7"            
.ListIndex = 4
End With        
With Frame1
.Left = 270            
.Top = 48            
.Height = 354            
.Width = 444            
.Caption = ""            
.SpecialEffect = fmSpecialEffectEtched            
.Picture = LoadPicture("")            
.PictureAlignment = fmPictureAlignmentTopLeft            
.PictureSizeMode = fmPictureSizeModeClip            
.PictureTiling = False            
.ScrollBars = fmScrollBarsBoth
End With        
With ListBox1
.Left = 6            
.Top = 66            
.Height = 306            
.Width = 264            
.ColumnCount = 2            
.ColumnWidths = "94;153"            
.SpecialEffect = fmSpecialEffectEtched            
.ForeColor = &H808000            
.Font.Size = 8            
.Font.Name = "Tahoma"            
.BackColor = &HE0E0E0            
.ListStyle = fmListStyleOption
End With        
With CommandButton1
.Left = 12            
.Height = 24            
.Width = 252            
.Top = 378            
.BackStyle = fmBackStyleTransparent            
.Caption = "Get WMF For Info"
End With
End With
End Sub
Private Sub Ekran_Temizle()
On Error Resume Next    
Data = ""    
Frame1.Picture = LoadPicture("")    
ListBox1.Clear    
Label3.Caption = ""
End Sub
Private Sub WinVersion_Kontrol()
On Error Resume Next    
With ListBox1
.AddItem "A) File Size [byte]"        
.AddItem "B) With [raw]"        
.AddItem "C) With [pixel]"        
.AddItem "D) With [dod point]"        
.AddItem "E) With [mm]"        
.AddItem "F) Height [raw]"        
.AddItem "G) Height [pixel]"        
.AddItem "H) Height [dot point]"        
.AddItem "I) Height [mm]"        
Select Case hWinVersion        
Case "Windows 1.0"        
Case "Windows 2.0"        
Case "Windows 3.0"        
Case "Windows 3.1"        
Case "Windows NT 3.1"        
Case "Windows 3.11"        
Case "Windows NT 3.5"        
Case "Windows 95"        
Case "Windows NT"        
Case "Windows NT 4.0"        
Case "Windows 98"        
Case "Windows 98 SE"        
Case "Windows Me"        
Case "Windows 2000"
.AddItem "0) Name"            
.AddItem "1) Size"            
.AddItem "2) Type"            
.AddItem "3) Date Modified"            
.AddItem "4) Attributes"            
.AddItem "5) Comment"            
.AddItem "6) Date Created"            
.AddItem "7) Date Accessed"            
.AddItem "8) Owner"            
.AddItem "9) "            
.AddItem "10) Author"            
.AddItem "11) Title"            
.AddItem "12) Subject"            
.AddItem "13) Category"            
.AddItem "14) Pages"            
.AddItem "15) Copyright"            
.AddItem "16) Company Name"            
.AddItem "17) Module Desription"            
.AddItem "18) Module Version"            
.AddItem "19) Product Name"            
.AddItem "20) Product Version"            
.AddItem "21) Sender Name"            
.AddItem "22) Recipient Name"            
.AddItem "23) Recipient Number"            
.AddItem "24) Csid"            
.AddItem "25) Tsid"            
.AddItem "26) Transmission Time"            
.AddItem "27) Caller Id"            
.AddItem "28) Routing"            
.AddItem "29) Audio Format"            
.AddItem "30) Sample Rate"            
.AddItem "31) Audio Sample Size"            
.AddItem "32) Channels"            
.AddItem "33) Play Length"            
.AddItem "34) Frame Count"            
.AddItem "35) Frame Rate"            
.AddItem "36) Video Sample Size"            
.AddItem "37) Video Compression"
Case "Windows 2000 Datacenter"        
Case "Windows XP"
.AddItem "0) Name"            
.AddItem "1) Size"            
.AddItem "2) Type"            
.AddItem "3) Date Modified"            
.AddItem "4) Date Created"            
.AddItem "5) Date Accessed"            
.AddItem "6) Attributes"            
.AddItem "7) Status"            
.AddItem "8) Owner"            
.AddItem "9) Author"            
.AddItem "10) Title"            
.AddItem "11) Subject"            
.AddItem "12) Category"            
.AddItem "13) Pages"            
.AddItem "14) Comments"            
.AddItem "15) Copyright"            
.AddItem "16) Artist"            
.AddItem "17) Album Title"            
.AddItem "18) Year"            
.AddItem "19) Track Number"            
.AddItem "20) Genre"            
.AddItem "21) Duration"            
.AddItem "22) Bit Rate"            
.AddItem "23) Protected"            
.AddItem "24) Camera Model"            
.AddItem "25) Date Picture Taken"            
.AddItem "26) Dimensions"            
.AddItem "27) "            
.AddItem "28) "            
.AddItem "29) Episode Name"            
.AddItem "30) Program Description"            
.AddItem "31) Description"            
.AddItem "32) Audio Sample Size"            
.AddItem "33) Audio Sample Rate"            
.AddItem "34) Channels"            
.AddItem "35) Company"            
.AddItem "36) Description"            
.AddItem "37) File Version"            
.AddItem "38) Product Name"            
.AddItem "39) Product Version"            
.AddItem "40) Keywords (Xp Only)"
Case "Windows Server 2003"
.AddItem "0) Name"            
.AddItem "1) Size"            
.AddItem "2) Type"            
.AddItem "3) Date Modified"            
.AddItem "4) Date Created"            
.AddItem "5) Date Accessed"            
.AddItem "6) Attributes"            
.AddItem "7) Status"            
.AddItem "8) Owner"            
.AddItem "9) Author"            
.AddItem "10) Title"            
.AddItem "11) Subject"            
.AddItem "12) Category"            
.AddItem "13) Pages"            
.AddItem "14) Comments"            
.AddItem "15) Copyright"            
.AddItem "16) Artist"            
.AddItem "17) Album Title"            
.AddItem "18) Year"            
.AddItem "19) Track Number"            
.AddItem "20) Genre"            
.AddItem "21) Duration"            
.AddItem "22) Bit Rate"            
.AddItem "23) Protected"            
.AddItem "24) Camera Model"            
.AddItem "25) Date Picture Taken"            
.AddItem "26) Dimensions"            
.AddItem "27) "            
.AddItem "28) "            
.AddItem "29) Episode Name"            
.AddItem "30) Program Description"            
.AddItem "31) Description"            
.AddItem "32) Audio Sample Size"            
.AddItem "33) Audio Sample Rate"            
.AddItem "34) Channels"            
.AddItem "35) Company"            
.AddItem "36) Description"            
.AddItem "37) File Version"            
.AddItem "38) Product Name"            
.AddItem "39) Product Version"            
.AddItem "40) Keywords (Xp Only)"
Case "Windows Vista"
.AddItem "0) Name"            
.AddItem "1) Size"            
.AddItem "2) Type"            
.AddItem "3) Date Modified"            
.AddItem "4) Date Created"            
.AddItem "5) Date Accessed"            
.AddItem "6) Attributes"            
.AddItem "7) Offline Status"            
.AddItem "8) Offline Availability"            
.AddItem "9) Perceived Type"            
.AddItem "10) Owner"            
.AddItem "11) Kinds"            
.AddItem "12) Date Taken"            
.AddItem "13) Artists"            
.AddItem "14) Album"            
.AddItem "15) Year"            
.AddItem "16) Genre"            
.AddItem "17) Conductors"            
.AddItem "18) Tags"            
.AddItem "19) Rating"            
.AddItem "20) Authors"            
.AddItem "21) Title"            
.AddItem "22) Subject"            
.AddItem "23) Categories"            
.AddItem "24) Comments"            
.AddItem "25) Copyright"            
.AddItem "26) #"            
.AddItem "27) Length"            
.AddItem "28) Bit Rate"            
.AddItem "29) Protected"            
.AddItem "30) Camera Model"            
.AddItem "31) Dimensions"            
.AddItem "32) Camera Maker"            
.AddItem "33) Company"            
.AddItem "34) File Description"            
.AddItem "35) Program Name"            
.AddItem "36) Duration"            
.AddItem "37) Is Online"            
.AddItem "38) Is Recurring"            
.AddItem "39) Location"            
.AddItem "40) Optional Attendee Addresses"            
.AddItem "41) Optional Attendees"            
.AddItem "42) Organizer Address"            
.AddItem "43) Organizer Name"            
.AddItem "44) Reminder Time"            
.AddItem "45) Required Attendee Addresses"            
.AddItem "46) Required Attendees"            
.AddItem "47) Resources"            
.AddItem "48) Free/Busy Status"            
.AddItem "49) Total Size"            
.AddItem "50) Account Name"            
.AddItem "51) Computer"            
.AddItem "52) Anniversary"            
.AddItem "53) Assistant'S Name"            
.AddItem "54) Assistant'S Phone"            
.AddItem "55) Birthday"            
.AddItem "56) Business Address"            
.AddItem "57) Business City"            
.AddItem "58) Business Country/Region"            
.AddItem "59) Business P.O. Box"            
.AddItem "60) Business Postal Code"            
.AddItem "61) Business State Or Province"            
.AddItem "62) Business Street"            
.AddItem "63) Business Fax"            
.AddItem "64) Business Home Page"            
.AddItem "65) Business Phone"            
.AddItem "66) Callback Number"            
.AddItem "67) Car Phone"            
.AddItem "68) Children"            
.AddItem "69) Company Main Phone"            
.AddItem "70) Department"            
.AddItem "71) E-Mail Address"            
.AddItem "72) E-Mail"            
.AddItem "73) E-Mail"            
.AddItem "74) E-Mail List"            
.AddItem "75) E-Mail Display Name"            
.AddItem "76) File As"            
.AddItem "77) First Name"            
.AddItem "78) Full Name"            
.AddItem "79) Gender"            
.AddItem "80) Given Name"            
.AddItem "81) Hobbies"            
.AddItem "82) Home Address"            
.AddItem "83) Home City"            
.AddItem "84) Home Country/Region"            
.AddItem "85) Home P.O. Box"            
.AddItem "86) Home Postal Code"            
.AddItem "87) Home State Or Province"            
.AddItem "88) Home Street"            
.AddItem "89) Home Fax"            
.AddItem "90) Home Phone"            
.AddItem "91) Im Addresses"            
.AddItem "92) Initials"            
.AddItem "93) Job Title"            
.AddItem "94) Label"            
.AddItem "95) Last Name"            
.AddItem "96) Mailing Address"            
.AddItem "97) Middle Name"            
.AddItem "98) Cell Phone"            
.AddItem "99) Nickname"            
.AddItem "100) Office Location"            
.AddItem "101) Other Address"            
.AddItem "102) Other City"            
.AddItem "103) Other Country/Region"            
.AddItem "104) Other P.O. Box"            
.AddItem "105) Other Postal Code"            
.AddItem "106) Other State Or Province"            
.AddItem "107) Other Street"            
.AddItem "108) Pager"            
.AddItem "109) Personal Title"            
.AddItem "110) City"            
.AddItem "111) Country/Region"            
.AddItem "112) P.O. Box"            
.AddItem "113) Postal Code"            
.AddItem "114) State Or Province"            
.AddItem "115) Street"            
.AddItem "116) Primary E-Mail"            
.AddItem "117) Primary Phone"            
.AddItem "118) Profession"            
.AddItem "119) Spouse"            
.AddItem "120) Suffix"            
.AddItem "121) Tty/Ttd Phone"            
.AddItem "122) Telex"            
.AddItem "123) Webpage"            
.AddItem "124) Status"            
.AddItem "125) Content Type"            
.AddItem "126) Date Acquired"            
.AddItem "127) Date Archived"            
.AddItem "128) Date Completed"            
.AddItem "129) Date İmported"            
.AddItem "130) Client Id"            
.AddItem "131) Contributors"            
.AddItem "132) Content Created"            
.AddItem "133) Last Printed"            
.AddItem "134) Date Last Saved"            
.AddItem "135) Division"            
.AddItem "136) Document Id"            
.AddItem "137) Pages"            
.AddItem "138) Slides"            
.AddItem "139) Total Editing Time"            
.AddItem "140) Word Count"            
.AddItem "141) Due Date"            
.AddItem "142) End Date"            
.AddItem "143) File Count"            
.AddItem "144) Filename"            
.AddItem "145) File Version"            
.AddItem "146) Flag Color"            
.AddItem "147) Flag Status"            
.AddItem "148) Space Free"            
.AddItem "149) Bit Depth"            
.AddItem "150) Horizontal Resolution"            
.AddItem "151) Width"            
.AddItem "152) Vertical Resolution"            
.AddItem "153) Height"            
.AddItem "154) Importance"            
.AddItem "155) Is Attachment"            
.AddItem "156) Is Deleted"            
.AddItem "157) Has Flag"            
.AddItem "158) Is Completed"            
.AddItem "159) Incomplete"            
.AddItem "160) Read Status"            
.AddItem "161) Shared"            
.AddItem "162) Creator"            
.AddItem "163) Date"            
.AddItem "164) Folder Name"            
.AddItem "165) Folder Path"            
.AddItem "166) Folder"            
.AddItem "167) Participants"            
.AddItem "168) Path"            
.AddItem "169) Contact Names"            
.AddItem "170) Entry Type"            
.AddItem "171) Language"            
.AddItem "172) Date Visited"            
.AddItem "173) Description"            
.AddItem "174) Link Status"            
.AddItem "175) Link Target"            
.AddItem "176) Url"            
.AddItem "177) Media Created"            
.AddItem "178) Date Released"            
.AddItem "179) Encoded By"            
.AddItem "180) Producers"            
.AddItem "181) Publisher"            
.AddItem "182) Subtitle"            
.AddItem "183) User Web Url"            
.AddItem "184) Writers"            
.AddItem "185) Attachments"            
.AddItem "186) Bcc Addresses"            
.AddItem "187) Bcc Names"            
.AddItem "188) Cc Addresses"            
.AddItem "189) Cc Names"            
.AddItem "190) Conversation Id"            
.AddItem "191) Date Received"            
.AddItem "192) Date Sent"            
.AddItem "193) From Addresses"            
.AddItem "194) From Names"            
.AddItem "195) Has Attachments"            
.AddItem "196) Sender Address"            
.AddItem "197) Sender Name"            
.AddItem "198) Store"            
.AddItem "199) To Addresses"            
.AddItem "200) To Do Title"            
.AddItem "201) To Names"            
.AddItem "202) Mileage"            
.AddItem "203) Album Artist"            
.AddItem "204) Beats-Per-Minute"            
.AddItem "205) Composers"            
.AddItem "206) Initial Key"            
.AddItem "207) Mood"            
.AddItem "208) Part Of Set"            
.AddItem "209) Period"            
.AddItem "210) Color"            
.AddItem "211) Parental Rating"            
.AddItem "212) Parental Rating Reason"            
.AddItem "213) Space Used"            
.AddItem "214) Exıf Version"            
.AddItem "215) Event"            
.AddItem "216) Exposure Bias"            
.AddItem "217) Exposure Program"            
.AddItem "218) Exposure Time"            
.AddItem "219) F-Stop"            
.AddItem "220) Flash Mode"            
.AddItem "221) Focal Length"            
.AddItem "222) Mm Focal Length"            
.AddItem "223) Iso Speed"            
.AddItem "224) Lens Maker"            
.AddItem "225) Lens Model"            
.AddItem "226) Light Source"            
.AddItem "227) Max Aperture"            
.AddItem "228) Metering Mode"            
.AddItem "229) Orientation"            
.AddItem "230) Program Mode"            
.AddItem "231) Saturation"            
.AddItem "232) Subject Distance"            
.AddItem "233) White Balance"            
.AddItem "234) Priority"            
.AddItem "235) Project"            
.AddItem "236) Channel Number"            
.AddItem "237) Episode Name"            
.AddItem "238) Closed Captioning"            
.AddItem "239) Rerun"            
.AddItem "240) Sap"            
.AddItem "241) Broadcast Date"            
.AddItem "242) Program Description"            
.AddItem "243) Recording Time"            
.AddItem "244) Station Call Sign"            
.AddItem "245) Station Name"            
.AddItem "246) Auto Summary"            
.AddItem "247) Summary"            
.AddItem "248) Search Ranking"            
.AddItem "249) Sensitivity"            
.AddItem "250) Shared With"            
.AddItem "251) Product Name"            
.AddItem "252) Product Version"            
.AddItem "253) Source"            
.AddItem "254) Start Date"            
.AddItem "255) Billing İnformation"            
.AddItem "256) Complete"            
.AddItem "257) Task Owner"            
.AddItem "258) Total File Size"            
.AddItem "259) Legal Trademarks"            
.AddItem "260) Video Compression"            
.AddItem "261) Directors"            
.AddItem "262) Data Rate"            
.AddItem "263) Frame Height"            
.AddItem "264) Frame Rate"            
.AddItem "265) Frame Width"            
.AddItem "266) Total Bitrate"
Case "Windows 7"
.AddItem "0) Name"            
.AddItem "1) Size"            
.AddItem "2) Item Type"            
.AddItem "3) Date Modified"            
.AddItem "4) Date Created"            
.AddItem "5) Date Accessed"            
.AddItem "6) Attributes"            
.AddItem "7) Offline Status"            
.AddItem "8) Offline Availability"            
.AddItem "9) "            
.AddItem "10) Owner"            
.AddItem "11) Kind"            
.AddItem "12) Date Taken"            
.AddItem "13) Contributing Artists"            
.AddItem "14) Album"            
.AddItem "15) Year"            
.AddItem "16) Genre"            
.AddItem "17) Conductors"            
.AddItem "18) Tags"            
.AddItem "19) Rating"            
.AddItem "20) Authors"            
.AddItem "21) Title"            
.AddItem "22) Subject"            
.AddItem "23) Categories"            
.AddItem "24) Comments"            
.AddItem "25) Copyright"            
.AddItem "26) #"            
.AddItem "27) Length"            
.AddItem "28) Bit Rate"            
.AddItem "29) Protected"            
.AddItem "30) Camera Model"            
.AddItem "31) Dimensions"            
.AddItem "32) Camera Maker"            
.AddItem "33) Company"            
.AddItem "34) File Description"            
.AddItem "35) Program Name"            
.AddItem "36) Duration"            
.AddItem "37) Is Online"            
.AddItem "38) Is Recurring"            
.AddItem "39) Location"            
.AddItem "40) Optional Attendee Addresses"            
.AddItem "41) Optional Attendees"            
.AddItem "42) Organizer Address"            
.AddItem "43) Organizer Name"            
.AddItem "44) Reminder Time"            
.AddItem "45) Required Attendee Addresses"            
.AddItem "46) Required Attendees"            
.AddItem "47) Resources"            
.AddItem "48) Meeting Status"            
.AddItem "49) Free/Busy Status"            
.AddItem "50) Total Size"
.AddItem "51) Account Name"            
.AddItem "52) Task Status"            
.AddItem "53) Computer"            
.AddItem "54) Anniversary"            
.AddItem "55) Assistant'S Name"            
.AddItem "56) Assistant'S Phone"            
.AddItem "57) Birthday"            
.AddItem "58) Business Address"            
.AddItem "59) Business City"            
.AddItem "60) Business Country/Region"            
.AddItem "61) Business P.O. Box"            
.AddItem "62) Business Postal Code"            
.AddItem "63) Business State Or Province"            
.AddItem "64) Business Street"            
.AddItem "65) Business Fax"            
.AddItem "66) Business Home Page"            
.AddItem "67) Business Phone"            
.AddItem "68) Callback Number"            
.AddItem "69) Car Phone"            
.AddItem "70) Children"            
.AddItem "71) Company Main Phone"            
.AddItem "72) Department"            
.AddItem "73) E-Mail Address"            
.AddItem "74) E-Mail"            
.AddItem "75) E-Mail"            
.AddItem "76) E-Mail List"            
.AddItem "77) E-Mail Display Name"            
.AddItem "78) File As"            
.AddItem "79) First Name"            
.AddItem "80) Full Name"            
.AddItem "81) Gender"            
.AddItem "82) Given Name"            
.AddItem "83) Hobbies"            
.AddItem "84) Home Address"            
.AddItem "85) Home City"            
.AddItem "86) Home Country/Region"            
.AddItem "87) Home P.O. Box"            
.AddItem "88) Home Postal Code"            
.AddItem "89) Home State Or Province"            
.AddItem "90) Home Street"            
.AddItem "91) Home Fax"            
.AddItem "92) Home Phone"            
.AddItem "93) Im Addresses"            
.AddItem "94) Initials"            
.AddItem "95) Job Title"            
.AddItem "96) Label"            
.AddItem "97) Last Name"            
.AddItem "98) Mailing Address"            
.AddItem "99) Middle Name"            
.AddItem "100) Cell Phone"            
.AddItem "101) Nickname"            
.AddItem "102) Office Location"            
.AddItem "103) Other Address"            
.AddItem "104) Other City"            
.AddItem "105) Other Country/Region"            
.AddItem "106) Other P.O. Box"            
.AddItem "107) Other Postal Code"            
.AddItem "108) Other State Or Province"            
.AddItem "109) Other Street"            
.AddItem "110) Pager"            
.AddItem "111) Personal Title"            
.AddItem "112) City"            
.AddItem "113) Country/Region"            
.AddItem "114) P.O. Box"            
.AddItem "115) Postal Code"            
.AddItem "116) State Or Province"            
.AddItem "117) Street"            
.AddItem "118) Primary E-Mail"            
.AddItem "119) Primary Phone"            
.AddItem "120) Profession"            
.AddItem "121) Spouse/Partner"            
.AddItem "122) Suffix"            
.AddItem "123) Tty/Ttd Phone"            
.AddItem "124) Telex"            
.AddItem "125) Webpage"            
.AddItem "126) Content Status"            
.AddItem "127) Content Type"            
.AddItem "128) Date Acquired"            
.AddItem "129) Date Archived"            
.AddItem "130) Date Completed"            
.AddItem "131) Device Category"            
.AddItem "132) Connected"            
.AddItem "133) Discovery Method"            
.AddItem "134) Friendly Name"            
.AddItem "135) Local Computer"            
.AddItem "136) Manufacturer"            
.AddItem "137) Model"            
.AddItem "138) Paired"            
.AddItem "139) Classification"            
.AddItem "140) Status"            
.AddItem "141) Client Id"            
.AddItem "142) Contributors"            
.AddItem "143) Content Created"            
.AddItem "144) Last Printed"            
.AddItem "145) Date Last Saved"            
.AddItem "146) Division"            
.AddItem "147) Document Id"            
.AddItem "148) Pages"            
.AddItem "149) Slides"            
.AddItem "150) Total Editing Time"            
.AddItem "151) Word Count"            
.AddItem "152) Due Date"            
.AddItem "153) End Date"            
.AddItem "154) File Count"            
.AddItem "155) Filename"            
.AddItem "156) File Version"            
.AddItem "157) Flag Color"            
.AddItem "158) Flag Status"            
.AddItem "159) Space Free"            
.AddItem "160) Bit Depth"            
.AddItem "161) Horizontal Resolution"            
.AddItem "162) Width"            
.AddItem "163) Vertical Resolution"            
.AddItem "164) Height"            
.AddItem "165) Importance"            
.AddItem "166) Is Attachment"            
.AddItem "167) Is Deleted"            
.AddItem "168) Encryption Status"            
.AddItem "169) Has Flag"            
.AddItem "170) Is Completed"            
.AddItem "171) Incomplete"            
.AddItem "172) Read Status"            
.AddItem "173) Creators"            
.AddItem "174) Date"            
.AddItem "175) Folder Name"            
.AddItem "176) Folder Path"            
.AddItem "177) Folder"            
.AddItem "178) Participants"            
.AddItem "179) Path"            
.AddItem "180) By Location"            
.AddItem "181) Type"            
.AddItem "182) Contact Names"            
.AddItem "183) Entry Type"            
.AddItem "184) Language"            
.AddItem "185) Date Visited"            
.AddItem "186) Description"            
.AddItem "187) Link Status"            
.AddItem "188) Link Target"            
.AddItem "189) Url"            
.AddItem "190) Media Created"            
.AddItem "191) Date Released"            
.AddItem "192) Encoded By"            
.AddItem "193) Producers"            
.AddItem "194) Publisher"            
.AddItem "195) Subtitle"            
.AddItem "196) User Web Url"            
.AddItem "197) Writers"            
.AddItem "198) Attachments"            
.AddItem "199) Bcc Addresses"            
.AddItem "200) Bcc"            
.AddItem "201) Cc Addresses"            
.AddItem "202) Cc"            
.AddItem "203) Conversation Id"            
.AddItem "204) Date Received"            
.AddItem "205) Date Sent"            
.AddItem "206) From Addresses"            
.AddItem "207) From"            
.AddItem "208) Has Attachments"            
.AddItem "209) Sender Address"            
.AddItem "210) Sender Name"            
.AddItem "211) Store"            
.AddItem "212) To Addresses"            
.AddItem "213) To Do Title"            
.AddItem "214) To"            
.AddItem "215) Mileage"            
.AddItem "216) Album Artist"            
.AddItem "217) Album Id"            
.AddItem "218) Beats-Per-Minute"            
.AddItem "219) Composers"            
.AddItem "220) Initial Key"            
.AddItem "221) Part Of A Compilation"            
.AddItem "222) Mood"            
.AddItem "223) Part Of Set"            
.AddItem "224) Period"            
.AddItem "225) Color"            
.AddItem "226) Parental Rating"            
.AddItem "227) Parental Rating Reason"            
.AddItem "228) Space Used"            
.AddItem "229) Exıf Version"            
.AddItem "230) Event"            
.AddItem "231) Exposure Bias"            
.AddItem "232) Exposure Program"            
.AddItem "233) Exposure Time"            
.AddItem "234) F-Stop"            
.AddItem "235) Flash Mode"            
.AddItem "236) Focal Length"            
.AddItem "237) Mm Focal Length"            
.AddItem "238) Iso Speed"            
.AddItem "239) Lens Maker"            
.AddItem "240) Lens Model"            
.AddItem "241) Light Source"            
.AddItem "242) Max Aperture"            
.AddItem "243) Metering Mode"            
.AddItem "244) Orientation"            
.AddItem "245) People"            
.AddItem "246) Program Mode"            
.AddItem "247) Saturation"            
.AddItem "248) Subject Distance"            
.AddItem "249) White Balance"            
.AddItem "250) Priority"            
.AddItem "251) Project"            
.AddItem "252) Channel Number"            
.AddItem "253) Episode Name"            
.AddItem "254) Closed Captioning"            
.AddItem "255) Rerun"            
.AddItem "256) Sap"            
.AddItem "257) Broadcast Date"            
.AddItem "258) Program Description"            
.AddItem "259) Recording Time"            
.AddItem "260) Station Call Sign"            
.AddItem "261) Station Name"            
.AddItem "262) Summary"            
.AddItem "263) Snippets"            
.AddItem "264) Auto Summary"            
.AddItem "265) Search Ranking"            
.AddItem "266) Sensitivity"
Case "Windows 8"        
End Select
End With
End Sub

'Module1

Option Explicit
Public Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Public 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 Any, ByRef ppvRet As Any) As Long
Public IPic(15) As Byte
Public Const ClsID As Variant = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}"
Public Const URL1 As String = "http://2.bp.blogspot.com/-G3KDFVP7V0Q/TcUhtYtMifI/AAAAAAAACw0/Ta6mFpFJtZ8/s1600/39.bmp"
Public Const URL2 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S78EbvJyhRI/AAAAAAAACS0/txbOQ1qubg8/s1600/PB%C4%B0D_jpg.jpg"
Public Const URL3 As String = "http://4.bp.blogspot.com/-bcs-JKecB0w/To74rY0qhXI/AAAAAAAAC3w/r1Rvc8D7A_Q/s1600/excel_2003.bmp"
Public URL As String
Sub Form_Aç() 'Open UserForm
On Error Resume Next    
UserForm1.Show 0
End Sub
Public Function Resim(URL) As Picture 'Picture load frome web address...
On Error Resume Next    
CLSIDFromString StrPtr(ClsID), IPic(0)    
OleLoadPicturePath StrPtr(URL), 0&, 0&, 0&, IPic(0), Resim
End Function
'Sub References_List()
'On Error Resume Next    
'Dim Eleman, No    
'No = 1 'For Each Eleman In ThisWorkbook.VBProject.References
'Sheets(1).Cells(No, 1) = No & ") Name: "        
'Sheets(1).Cells(No, 2) = Eleman.Name        
'Sheets(1).Cells(No, 3) = ", Description: "        
'Sheets(1).Cells(No, 4) = Eleman.Description        
'Sheets(1).Cells(No, 5) = ", FullPath: "        
'Sheets(1).Cells(No, 6) = Eleman.FullPath        
'No = No + 1
'Next Eleman
'End Sub

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul