Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

10 Mayıs 2010 Pazartesi

Worksheet And Spreadsheet Painting By GetPixel Function









'UserForm1

'A) Windows XP® Office 2003® Normal Referance List
'Description: Visual Basic For Applications, FullPath: C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE
'Description: OLE Automation, FullPath: C:\WINDOWS\system32\stdole2.tlb
'Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL

'Description: Microsoft Forms 2.0 Object Library, FullPath: C:\WINDOWS\system32\FM20.DLL
'Description: Microsoft Office Web Components 11.0, FullPath: C:\Program Files\Common Files\Microsoft Shared\Web Components\11\OWC11.DLL
'Description: Microsoft Windows Common Controls 6.0 (SP6), FullPath: C:\WINDOWS\system32\MSCOMCTL.OCX
'B) UserForm1'e Eklenen Araçlar (Add Tools)
'Image1, Label1, Label2
'Label3, Label4
'Image2, Spreadsheet1
'Label5, Label6, Label7, Label8
'Label9, Label10, Label11, Label12
'Label13, Label14, Label15, Label16
'ProgressBar1, Label17
'ProgressBar2, Label18
'ComboBox1, ComboBox2
'CommandButton1
'Label19, Label20
'Label21, Label22
'Label23, Label24, Label25, Label26, Label27, Label28
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
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 Any, ByRef ppvRet As Any) As Long
Private IPic(15) As Byte
Private Const ClsID As Variant = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}" 'It may take a few seconds, please wait.

Private Const URL1 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S78EbvJyhRI/AAAAAAAACS0/txbOQ1qubg8/s1600/PB%C4%B0D_jpg.jpg" 'Microsoft Office Excel® Kod Kılavuzu [PBİD Logo]
Private Const URL2 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S7rn6KHVfNI/AAAAAAAACRs/fxVMg9YGzb4/s1600/VectorBackround.jpg" 'Microsoft Office Excel® Kod Kılavuzu [Bant]
Private Const URL3 As String = "http://thebsreport.files.wordpress.com/2009/05/mountain-lion.jpg" '[Puma]Dim i As Integer, ii As Integer
Private Eleman As Worksheet
Private Nokta, HexKod, Alan
Private Red As Double, Green As Double, Blue As Double
Private X1 As Double, Y1 As Double, X2 As Double, Y2 As Double, Dikey As Double, Yatay As Double
Private Boyu As Double
'RowHight

Private Eni As Double 'ColumnWidth
Private Const ÇerçeveRengi As Variant = "&HC000C0" 'Control color...
Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®] Worksheet And Spreadsheet Painting By GetPixel Function "
Call EkranDüzenle
End Sub
Private Sub UserForm_Activate()
On Error Resume Next
Call KoordinatTespiti
Me.StartUpPosition = 2
End Sub
Private Sub ComboBox1_Change()
On Error Resume Next
Select Case ComboBox1.ListIndex
Case 0: Eni = 0.08: Boyu = 0.75
Case 1: Eni = 0.17: Boyu = 1.5
Case 2: Eni = 0.25: Boyu = 2.25
Case 3: Eni = 0.33: Boyu = 3
Case 4: Eni = 0.42: Boyu = 4
Case 5: Eni = 0.5: Boyu = 4.75
Case 6: Eni = 0.58: Boyu = 5.5
End Select
Call SayfaDüzenle
End Sub
Private Sub ComboBox2_Change()
On Error Resume Next
Call SayfaDüzenle
End Sub
Private Sub CommandButton1_Click()
On Error Resume Next
ThisWorkbook.Sheets("Resim").Select
Alan = GetDC(FindWindow(vbNullString, Me.Caption))
For i = X1 To X2
For ii = Y1 To Y2
Yatay = i
Dikey = ii
Nokta = GetPixel(Alan, Yatay, Dikey)
If Nokta <> -1 Then
HexKod = "&H" & VBA.Hex(Nokta)
Red = VBA.Int(Nokta Mod 256)
Green = VBA.Int((Nokta Mod 65536) / 256)
Blue = VBA.Int(Nokta / 65536)
CommandButton1.BackColor = VBA.RGB(Red, Green, Blue)
If i > 256 Then
If ComboBox2.ListIndex = 1 Then Spreadsheet1.ActiveSheet.Cells(Dikey - Y1 + 1, Yatay - X1 + 1).Interior.Color = VBA.RGB(Red, Green, Blue)
Else
If ComboBox2.ListIndex = 0 Then Sheets("Resim").Cells(Dikey - Y1 + 1, Yatay - X1 + 1).Interior.Color = VBA.RGB(Red, Green, Blue)
If ComboBox2.ListIndex = 1 Then Spreadsheet1.ActiveSheet.Cells(Dikey - Y1 + 1, Yatay - X1 + 1).Interior.Color = VBA.RGB(Red, Green, Blue)
End If
End If
Label16.Caption = ii
Label20.Caption = HexKod
Label22.Caption = VBA.RGB(Red, Green, Blue)
Label24.Caption = Red
Label26.Caption = Green
Label28.Caption = Blue
ProgressBar1.Value = 100 * (ii / Y2)
Label17.Caption = VBA.Format((ii / Y2), "0.00%")
DoEvents
Next ii
Label14.Caption = i
ProgressBar2.Value = 100 * (i / X2)
Label18.Caption = VBA.Format((i / X2), "0.00%")
DoEvents
Next i
CommandButton1.BackColor = VBA.RGB(255, 255, 255)
Label16.Caption = 0
Label18.Caption = 0
Label20.Caption = 0
Label22.Caption = 0
Label24.Caption = 0
End Sub
Private Sub KoordinatTespiti()
On Error Resume Next
Label6.Caption = 0: Label8.Caption = 0: Label10.Caption = 0: Label12.Caption = 0: Label14.Caption = 0: Label16.Caption = 0
'X1 = 32720: X2 = 0: Y1 = 32720: Y2 = 0
'Alan = GetDC(FindWindow(vbNullString, Me.Caption))
'For i = 1 To Me.Width
'For ii = 1 To Me.Height
'Yatay = i
'Dikey = ii
'Nokta = GetPixel(Alan, Yatay, Dikey)
'If Nokta <> -1 Then
'HexKod = "&H" & VBA.Hex(Nokta)
'If HexKod = ÇerçeveRengi Then
'If Yatay <= X1 Then X1 = Yatay: If Yatay >= X2 Then X2 = Yatay
'If Dikey <= Y1 Then Y1 = Dikey: If Dikey >= Y2 Then Y2 = Dikey
'End If
'End If
'ProgressBar1.Value = 100 * (ii / Me.Height)
'Label16.Caption = ii
'Label17.Caption = VBA.Format((ii / Me.Height), "0.00%")
'DoEvents
'Next ii
'ProgressBar2.Value = 100 * (i / Me.Width)
'Label14.Caption = i
'Label18.Caption = VBA.Format((i / Me.Width), "0.00%")
'DoEvents
'Next i
X1 = VBA.Round(Image2.Left / 0.748, 0):Y1 = VBA.Round(Image2.Top / 0.748, 0):X2 = VBA.Round((Image2.Left + Image2.Width) / 0.748, 0):Y2 = VBA.Round((Image2.Top + Image2.Height) / 0.748, 0)
Label6.Caption = X1: Label8.Caption = X2: Label10.Caption = Y1: Label12.Caption = Y2
End Sub
Private Sub SayfaDüzenle()
On Error Resume Next
For Each Eleman In ThisWorkbook.Worksheets
If Eleman.Name = "Resim" Then GoTo Devam1
Next Eleman
ThisWorkbook.Worksheets.Add Sheets(1)
ActiveSheet.Name = "Resim"
Devam1:
ThisWorkbook.Sheets("Resim").Select
Cells.Select
Selection.Delete Shift:=xlUp
Selection.ColumnWidth = Eni
Selection.RowHeight = Boyu
With ActiveWindow
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = False
.DisplayGridlines = False
End With
[A1].Select
With Spreadsheet1
.Sheets(1).Cells.Select
Selection.Delete Shift:=xlUp
.Sheets(1).Cells.ColumnWidth = Eni
.Sheets(1).Cells.RowHeight = Boyu
.ActiveWindow.DisplayGridlines = False
.[A1].Select
End With
End Sub
Private 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
Private Sub EkranDüzenle()
With Me
.Height = 510
.Width = 647
.Picture = Resim(URL2)
.PictureAlignment = fmPictureAlignmentTopLeft
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = False
End With
With Image1
.Left = 6
.Top = 6
.Height = 24
.Width = 24
.BackStyle = fmBackStyleTransparent
.BorderColor = &H80000002
.BorderStyle = fmBorderStyleSingle
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = False
End With
With Label1
.Caption = "Mustafa ULUSARAÇ"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Font.Bold = True
.ForeColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
.Left = 36
.Top = 6
.Height = 12
.Width = 228
.WordWrap = False
.TextAlign = fmTextAlignLeft
End With
With Label2
.Caption = "01ulusarac@superonline.com"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Font.Bold = True
.ForeColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
.Left = 36
.Top = 18
.Height = 12
.Width = 228
.WordWrap = False
.TextAlign = fmTextAlignLeft
End With
With Label3
.Caption = "Picture"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
.Left = 6
.Top = 42
.Height = 12
.Width = 174
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With Image2
.AutoSize = False
.Left = 6
.Top = 54
.Height = 228
.Width = 174
.Picture = Resim(URL3)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeStretch
.PictureTiling = False
.BackStyle = fmBackStyleOpaque
.BorderStyle = fmBorderStyleSingle
.BorderColor = ÇerçeveRengi
.SpecialEffect = fmSpecialEffectFlat
End With
With Label4
.Caption = "Spreadsheet1"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
.Left = 186
.Top = 42
.Height = 12
.Width = 450
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With Spreadsheet1
.DisplayDesignTimeUI = False
.DisplayOfficeLogo = False
.DisplayPropertyToolbox = False
.DisplayTitleBar = False
.DisplayTitleBar = False
.DisplayToolbar = False
With .ActiveWindow
.DisplayGridlines = False
.DisplayColumnHeadings = False
.DisplayRowHeadings = False
.EnableResize = False
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = False
End With
.Left = 186
.Top = 54
.Height = 426
.Width = 450
End With
With Label5
.Caption = "X1"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlack
.SpecialEffect = fmSpecialEffectFlat
.Left = 6
.Top = 288
.Height = 12
.Width = 24
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With Label6
.Caption = ""
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
.Left = 36
.Top = 288
.Height = 12
.Width = 54
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With Label7
.Caption = "X2"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlack
.SpecialEffect = fmSpecialEffectFlat
.Left = 6
.Top = 306
.Height = 12
.Width = 24
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With Label8
.Caption = ""
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
.Left = 36
.Top = 306
.Height = 12
.Width = 54
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With Label9
.Caption = "Y1"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlack
.SpecialEffect = fmSpecialEffectFlat
.Left = 96
.Top = 288
.Height = 12
.Width = 24
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With Label10
.Caption = ""
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
.Left = 126
.Top = 288
.Height = 12
.Width = 54
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With Label11
.Caption = "Y2"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlack
.SpecialEffect = fmSpecialEffectFlat
.Left = 96
.Top = 306
.Height = 12
.Width = 24
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With Label12
.Caption = ""
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
.Left = 126
.Top = 306
.Height = 12
.Width = 54
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With Label13
.Caption = "X"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlack
.SpecialEffect = fmSpecialEffectFlat
.Left = 6
.Top = 324
.Height = 12
.Width = 24
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With Label14
.Caption = ""
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
.Left = 36
.Top = 324
.Height = 12
.Width = 54
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With Label15
.Caption = "Y"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlack
.SpecialEffect = fmSpecialEffectFlat
.Left = 96
.Top = 324
.Height = 12
.Width = 24
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With Label16
.Caption = ""
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
.Left = 126
.Top = 324
.Height = 12
.Width = 54
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With ProgressBar1
.Left = 6
.Top = 342
.Height = 12
.Width = 114
.Appearance = ccFlat
.BorderStyle = ccFixedSingle
.Min = 0
.Max = 100
End With
With Label17
.Caption = ""
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
.Left = 126
.Top = 342
.Height = 12
.Width = 54
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With ProgressBar2
.Left = 6
.Top = 360
.Height = 12
.Width = 114
.Appearance = ccFlat
.BorderStyle = ccFixedSingle
.Min = 0
.Max = 100
End With
With Label18
.Caption = ""
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
.Left = 126
.Top = 360
.Height = 12
.Width = 54
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With ComboBox1
.Left = 6
.Top = 378
.Height = 18
.Width = 114
.AutoSize = False
.BackColor = vbWhite
.BackStyle = fmBackStyleOpaque
.BorderColor = vbBlue
.BorderStyle = fmBorderStyleSingle
.Font.Bold = False
.Text = "Ölçek [Scale]"
.SpecialEffect = fmSpecialEffectFlat
.AddItem "Hight:0,750-Width:0,080"
.AddItem "Hight:1,500-Width:0,170"
.AddItem "Hight:2,250-Width:0,250"
.AddItem "Hight:3,000-Width:0,330"
.AddItem "Hight:4,000-Width:0,420"
.AddItem "Hight:4,750-Width:0,500"
.AddItem "Hight:5,500-Width:0,580"
.ListIndex = 0
End With
With ComboBox2
.Left = 126
.Top = 378
.Height = 18
.Width = 54
.AutoSize = False
.BackColor = vbWhite
.BackStyle = fmBackStyleOpaque
.BorderColor = vbBlue
.BorderStyle = fmBorderStyleSingle
.Font.Bold = False
.Text = "Sayfa [Sheet]"
.SpecialEffect = fmSpecialEffectFlat
.AddItem "WorkSheet"
.AddItem "Spreadsheet"
.ListIndex = 0
End With
With CommandButton1
.Left = 6
.Top = 402
.Height = 24
.Width = 174
.Caption = "Make a Painting"
.BackStyle = fmBackStyleOpaque
.BackColor = vbWhite
End With
With Label19
.Caption = " HexaDecimal"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlack
.SpecialEffect = fmSpecialEffectFlat
.Left = 6
.Top = 432
.Height = 12
.Width = 54
.WordWrap = False
.TextAlign = fmTextAlignLeft
End With
With Label20
.Caption = ""
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
.Left = 66
.Top = 432
.Height = 12
.Width = 114
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With Label21
.Caption = " Point RGB"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlack
.SpecialEffect = fmSpecialEffectFlat
.Left = 6
.Top = 450
.Height = 12
.Width = 54
.WordWrap = False
.TextAlign = fmTextAlignLeft
End With
With Label22
.Caption = ""
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
.Left = 66
.Top = 450
.Height = 12
.Width = 114
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With Label23
.Caption = " Red"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlack
.SpecialEffect = fmSpecialEffectFlat
.Left = 6
.Top = 468
.Height = 12
.Width = 24
.WordWrap = False
.TextAlign = fmTextAlignLeft
End With
With Label24
.Caption = ""
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
.Left = 36
.Top = 468
.Height = 12
.Width = 24
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With Label25
.Caption = "Green"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlack
.SpecialEffect = fmSpecialEffectFlat
.Left = 66
.Top = 468
.Height = 12
.Width = 24
.WordWrap = False
.TextAlign = fmTextAlignLeft
End With
With Label26
.Caption = ""
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
.Left = 96
.Top = 468
.Height = 12
.Width = 24
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
With Label27
.Caption = "Blue"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlack
.SpecialEffect = fmSpecialEffectFlat
.Left = 126
.Top = 468
.Height = 12
.Width = 24
.WordWrap = False
.TextAlign = fmTextAlignLeft
End With
With Label28
.Caption = ""
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Font.Bold = False
.ForeColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
.Left = 156
.Top = 468
.Height = 12
.Width = 24
.WordWrap = False
.TextAlign = fmTextAlignCenter
End With
End Sub 
'Module1

Option Explicit
Sub FormAç()
On Error Resume Next
Application.DisplayAlerts = False
UserForm1.Show 0
End Sub
'Sub ReferenceList() 'Mevcut
'On Error Resume Next
'Dim Eleman, i
'i = 1
'For Each Eleman In ThisWorkbook.VBProject.References
' Cells(i, 1) = "Description: "
' Cells(i, 2) = Eleman.Description
' Cells(i, 3) = "FullPath: "
' Cells(i, 4) = Eleman.FullPath
' i = i + 1
'Next Eleman
'End Sub



Hiç yorum yok:

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