Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Ocak 2008 Pazar

Optional AddComment




'Module1

Option Explicit
Dim i As Integer, ResimSorgu As Integer
Dim Etiket As Comment
Dim Açıklama As String, Resim As String
Dim Hücre As Range, TS As Worksheet, Sayfa As Worksheet
Dim EtiketHafıza(1 To 139, 1 To 3)
Sub AçıklamaEtiketiEkleme()
'[Add Comment]

On Error Resume Next
Set Etiket = Nothing
Call EtiketHafızası
Call SayfaDüzenle
Call EtiketResmiEkleme
For i = 1 To 139
If i > 70 Then
Set Hücre = Sayfa.Cells((i + 1 - 70), 7)
Else
Set Hücre = Sayfa.Cells((i + 1), 3)
End If
With Hücre
.ClearComments
.Offset(0, -2) = EtiketHafıza(i, 1)
.Offset(0, -1) = EtiketHafıza(i, 2)
.Offset(0, 0) = EtiketHafıza(i, 3)
.RowHeight = 68.8
.AddComment
End With
Set Etiket = Hücre.Comment
Açıklama = VBA.Format(VBA.Now(), "dd.mmm.yyyy ddd, hh:mm:ss")
With Etiket
.Visible = True
.Text Text:=Açıklama
With .Shape
.Height = 64
.Width = 120
.AutoShapeType = EtiketHafıza(i, 3)
With .Line
.Weight = 0.75
.DashStyle = msoLineSolid
.Style = msoLineSingle
.Transparency = 0#
.Visible = msoTrue
.ForeColor.SchemeColor = 30
.BackColor.RGB = RGB(255, 255, 255)
End With
With .Fill
.Transparency = 0#
.BackColor.RGB = VBA.RGB(246, 246, 246)
.Visible = msoTrue
.ForeColor.RGB = RGB(155, 224, 224)
.BackColor.SchemeColor = 80
.Patterned msoPatternDiagonalBrick
.UserPicture Resim
End With
With .TextFrame
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.ReadingOrder = xlLTR
.Orientation = msoTextOrientationHorizontal
.AutoSize = False
With .Characters.Font
.Name = "Tahome" '"Arial";"Comic Sans MS"
.FontStyle = "İtalik" '"Normal"
.Size = 8
.Bold = False
.Color = vbBlue
End With
End With
End With
End With
Next i
End Sub
Private Sub EtiketResmiEkleme()

On Error GoTo Hata
ResimBul:
Resim = Application.GetOpenFilename("Image Files [*.bmp] (*.bmp), *.bmp")

'"c:\Program Files\Microsoft Office\CLIPART\PUB60COR\PH02752U.BMP"
If ((Resim <> "False")) Then
ResimSorgu = MsgBox("Seçilen Resim : " & Resim & vbCrLf & vbCrLf & "Mustafa ULUSARAÇ 01ulusarac@superonline.com", vbYesNo + vbExclamation, "[PBİD®] Açıklama Etiketleri İçin Resim Seçimi..")
If ResimSorgu = vbNo Then GoTo ResimBul
Exit Sub
Else
Resim = "": Exit Sub
End If
Hata:
Resim = ""
End Sub
Private Sub SayfaDüzenle()

On Error Resume Next
For Each TS In ThisWorkbook.Sheets
If TS.Name = "CommentType" Then Set Sayfa = TS: Exit For
Next TS
If Sayfa Is Nothing Then
ThisWorkbook.Worksheets.Add , Sheets(ThisWorkbook.Worksheets.Count), 1
ActiveSheet.Name = "CommentType"
Set Sayfa = ThisWorkbook.Sheets("CommentType")
End If
With Sayfa
.Select
.Cells.Delete Shift:=xlUp
ActiveWindow.Zoom = 90
With .Cells(1, 1)
.Value = "Sıra No"
.ColumnWidth = 4
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 90
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
.Font.Bold = True
With .Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
.Font.ColorIndex = 2
End With
With .Cells(1, 2)
.Value = "Comment Name"
.ColumnWidth = 38
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
.Font.Bold = True
With .Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
.Font.ColorIndex = 2
End With
With .Cells(1, 3)
.Value = "Comment No"
.ColumnWidth = 4
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 90
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
.Font.Bold = True
With .Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
.Font.ColorIndex = 2
End With
With .Cells(1, 4)
.Value = "Comment Shapes"
.ColumnWidth = 26
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
.Font.Bold = True
With .Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
.Font.ColorIndex = 2
End With
With .Cells(1, 5)
.Value = "Sıra No"
.ColumnWidth = 4
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 90
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
.Font.Bold = True
With .Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
.Font.ColorIndex = 2
End With
With .Cells(1, 6)
.Value = "Comment Name"
.ColumnWidth = 38
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
.Font.Bold = True
With .Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
.Font.ColorIndex = 2
End With
With .Cells(1, 7)
.Value = "Comment No"
.ColumnWidth = 4
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 90
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
.Font.Bold = True
With .Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
.Font.ColorIndex = 2
End With
With .Cells(1, 8)
.Value = "Comment Shapes"
.ColumnWidth = 26
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
.Font.Bold = True
With .Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
.Font.ColorIndex = 2
End With
End With
Rows("1:1").RowHeight = 54
End Sub
Private Sub EtiketHafızası()

On Error Resume Next
EtiketHafıza(1, 1) = 1: EtiketHafıza(1, 2) = "msoShape24pointStar": EtiketHafıza(1, 3) = msoShape24pointStar
EtiketHafıza(2, 1) = 2: EtiketHafıza(2, 2) = "msoShape4pointStar": EtiketHafıza(2, 3) = msoShape4pointStar
EtiketHafıza(3, 1) = 3: EtiketHafıza(3, 2) = "msoShape8pointStar": EtiketHafıza(3, 3) = msoShape8pointStar
EtiketHafıza(4, 1) = 4: EtiketHafıza(4, 2) = "msoShapeActionButtonBeginning": EtiketHafıza(4, 3) = msoShapeActionButtonBeginning
EtiketHafıza(5, 1) = 5: EtiketHafıza(5, 2) = "msoShapeActionButtonDocument": EtiketHafıza(5, 3) = msoShapeActionButtonDocument
EtiketHafıza(6, 1) = 6: EtiketHafıza(6, 2) = "msoShapeActionButtonForwardorNext": EtiketHafıza(6, 3) = msoShapeActionButtonForwardorNext
EtiketHafıza(7, 1) = 7: EtiketHafıza(7, 2) = "msoShapeActionButtonHome": EtiketHafıza(7, 3) = msoShapeActionButtonHome
EtiketHafıza(8, 1) = 8: EtiketHafıza(8, 2) = "msoShapeActionButtonMovie": EtiketHafıza(8, 3) = msoShapeActionButtonMovie
EtiketHafıza(9, 1) = 9: EtiketHafıza(9, 2) = "msoShapeActionButtonSound": EtiketHafıza(9, 3) = msoShapeActionButtonSound
EtiketHafıza(10, 1) = 10: EtiketHafıza(10, 2) = "msoShapeBalloon": EtiketHafıza(10, 3) = msoShapeBalloon
EtiketHafıza(11, 1) = 11: EtiketHafıza(11, 2) = "msoShapeBentUpArrow": EtiketHafıza(11, 3) = msoShapeBentUpArrow
EtiketHafıza(12, 1) = 12: EtiketHafıza(12, 2) = "msoShapeBlockArc": EtiketHafıza(12, 3) = msoShapeBlockArc
EtiketHafıza(13, 1) = 13: EtiketHafıza(13, 2) = "msoShapeChevron": EtiketHafıza(13, 3) = msoShapeChevron
EtiketHafıza(14, 1) = 14: EtiketHafıza(14, 2) = "msoShapeCloudCallout": EtiketHafıza(14, 3) = msoShapeCloudCallout
EtiketHafıza(15, 1) = 15: EtiketHafıza(15, 2) = "msoShapeCube": EtiketHafıza(15, 3) = msoShapeCube
EtiketHafıza(16, 1) = 16: EtiketHafıza(16, 2) = "msoShapeCurvedDownRibbon": EtiketHafıza(16, 3) = msoShapeCurvedDownRibbon
EtiketHafıza(17, 1) = 17: EtiketHafıza(17, 2) = "msoShapeCurvedRightArrow": EtiketHafıza(17, 3) = msoShapeCurvedRightArrow
EtiketHafıza(18, 1) = 18: EtiketHafıza(18, 2) = "msoShapeCurvedUpRibbon": EtiketHafıza(18, 3) = msoShapeCurvedUpRibbon
EtiketHafıza(19, 1) = 19: EtiketHafıza(19, 2) = "msoShapeDonut": EtiketHafıza(19, 3) = msoShapeDonut
EtiketHafıza(20, 1) = 20: EtiketHafıza(20, 2) = "msoShapeDoubleBracket": EtiketHafıza(20, 3) = msoShapeDoubleBracket
EtiketHafıza(21, 1) = 21: EtiketHafıza(21, 2) = "msoShapeDownArrow": EtiketHafıza(21, 3) = msoShapeDownArrow
EtiketHafıza(22, 1) = 22: EtiketHafıza(22, 2) = "msoShapeDownRibbon": EtiketHafıza(22, 3) = msoShapeDownRibbon
EtiketHafıza(23, 1) = 23: EtiketHafıza(23, 2) = "msoShapeExplosion2": EtiketHafıza(23, 3) = msoShapeExplosion2
EtiketHafıza(24, 1) = 24: EtiketHafıza(24, 2) = "msoShapeFlowchartCard": EtiketHafıza(24, 3) = msoShapeFlowchartCard
EtiketHafıza(25, 1) = 25: EtiketHafıza(25, 2) = "msoShapeFlowchartConnector": EtiketHafıza(25, 3) = msoShapeFlowchartConnector
EtiketHafıza(26, 1) = 26: EtiketHafıza(26, 2) = "msoShapeFlowchartDecision": EtiketHafıza(26, 3) = msoShapeFlowchartDecision
EtiketHafıza(27, 1) = 27: EtiketHafıza(27, 2) = "msoShapeFlowchartDirectAccessStorage": EtiketHafıza(27, 3) = msoShapeFlowchartDirectAccessStorage
EtiketHafıza(28, 1) = 28: EtiketHafıza(28, 2) = "msoShapeFlowchartDisplay": EtiketHafıza(28, 3) = msoShapeFlowchartDisplay
EtiketHafıza(29, 1) = 29: EtiketHafıza(29, 2) = "msoShapeFlowchartDocument": EtiketHafıza(29, 3) = msoShapeFlowchartDocument
EtiketHafıza(30, 1) = 30: EtiketHafıza(30, 2) = "msoShapeFlowchartExtract": EtiketHafıza(30, 3) = msoShapeFlowchartExtract
EtiketHafıza(31, 1) = 31: EtiketHafıza(31, 2) = "msoShapeFlowchartInternalStorage": EtiketHafıza(31, 3) = msoShapeFlowchartInternalStorage
EtiketHafıza(32, 1) = 32: EtiketHafıza(32, 2) = "msoShapeFlowchartMagneticDisk": EtiketHafıza(32, 3) = msoShapeFlowchartMagneticDisk
EtiketHafıza(33, 1) = 33: EtiketHafıza(33, 2) = "msoShapeFlowchartManualInput": EtiketHafıza(33, 3) = msoShapeFlowchartManualInput
EtiketHafıza(34, 1) = 34: EtiketHafıza(34, 2) = "msoShapeFlowchartManualOperation": EtiketHafıza(34, 3) = msoShapeFlowchartManualOperation
EtiketHafıza(35, 1) = 35: EtiketHafıza(35, 2) = "msoShapeFlowchartMerge": EtiketHafıza(35, 3) = msoShapeFlowchartMerge
EtiketHafıza(36, 1) = 36: EtiketHafıza(36, 2) = "msoShapeFlowchartMultidocument": EtiketHafıza(36, 3) = msoShapeFlowchartMultidocument
EtiketHafıza(37, 1) = 37: EtiketHafıza(37, 2) = "msoShapeFlowchartOffpageConnector": EtiketHafıza(37, 3) = msoShapeFlowchartOffpageConnector
EtiketHafıza(38, 1) = 38: EtiketHafıza(38, 2) = "msoShapeFlowchartOr": EtiketHafıza(38, 3) = msoShapeFlowchartOr
EtiketHafıza(39, 1) = 39: EtiketHafıza(39, 2) = "msoShapeFlowchartPredefinedProcess": EtiketHafıza(39, 3) = msoShapeFlowchartPredefinedProcess
EtiketHafıza(40, 1) = 40: EtiketHafıza(40, 2) = "msoShapeFlowchartPreparation": EtiketHafıza(40, 3) = msoShapeFlowchartPreparation
EtiketHafıza(41, 1) = 41: EtiketHafıza(41, 2) = "msoShapeFlowchartProcess": EtiketHafıza(41, 3) = msoShapeFlowchartProcess
EtiketHafıza(42, 1) = 42: EtiketHafıza(42, 2) = "msoShapeFlowchartPunchedTape": EtiketHafıza(42, 3) = msoShapeFlowchartPunchedTape
EtiketHafıza(43, 1) = 43: EtiketHafıza(43, 2) = "msoShapeFlowchartSequentialAccessStorage": EtiketHafıza(43, 3) = msoShapeFlowchartSequentialAccessStorage
EtiketHafıza(44, 1) = 44: EtiketHafıza(44, 2) = "msoShapeFlowchartSort": EtiketHafıza(44, 3) = msoShapeFlowchartSort
EtiketHafıza(45, 1) = 45: EtiketHafıza(45, 2) = "msoShapeFlowchartStoredData": EtiketHafıza(45, 3) = msoShapeFlowchartStoredData
EtiketHafıza(46, 1) = 46: EtiketHafıza(46, 2) = "msoShapeFlowchartSummingJunction": EtiketHafıza(46, 3) = msoShapeFlowchartSummingJunction
EtiketHafıza(47, 1) = 47: EtiketHafıza(47, 2) = "msoShapeFlowchartTerminator": EtiketHafıza(47, 3) = msoShapeFlowchartTerminator
EtiketHafıza(48, 1) = 48: EtiketHafıza(48, 2) = "msoShapeFoldedCorner": EtiketHafıza(48, 3) = msoShapeFoldedCorner
EtiketHafıza(49, 1) = 49: EtiketHafıza(49, 2) = "msoShapeHeart": EtiketHafıza(49, 3) = msoShapeHeart
EtiketHafıza(50, 1) = 50: EtiketHafıza(50, 2) = "msoShapeHexagon": EtiketHafıza(50, 3) = msoShapeHexagon
EtiketHafıza(51, 1) = 51: EtiketHafıza(51, 2) = "msoShapeHorizontalScroll": EtiketHafıza(51, 3) = msoShapeHorizontalScroll
EtiketHafıza(52, 1) = 52: EtiketHafıza(52, 2) = "msoShapeIsoscelesTriangle": EtiketHafıza(52, 3) = msoShapeIsoscelesTriangle
EtiketHafıza(53, 1) = 53: EtiketHafıza(53, 2) = "msoShapeLeftArrow": EtiketHafıza(53, 3) = msoShapeLeftArrow
EtiketHafıza(54, 1) = 54: EtiketHafıza(54, 2) = "msoShapeLeftArrowCallout": EtiketHafıza(54, 3) = msoShapeLeftArrowCallout
EtiketHafıza(55, 1) = 55: EtiketHafıza(55, 2) = "msoShapeLeftBrace": EtiketHafıza(55, 3) = msoShapeLeftBrace
EtiketHafıza(56, 1) = 56: EtiketHafıza(56, 2) = "msoShapeLeftBracket": EtiketHafıza(56, 3) = msoShapeLeftBracket
EtiketHafıza(57, 1) = 57: EtiketHafıza(57, 2) = "msoShapeLeftRightArrow": EtiketHafıza(57, 3) = msoShapeLeftRightArrow
EtiketHafıza(58, 1) = 58: EtiketHafıza(58, 2) = "msoShapeLeftRightArrowCallout": EtiketHafıza(58, 3) = msoShapeLeftRightArrowCallout
EtiketHafıza(59, 1) = 59: EtiketHafıza(59, 2) = "msoShapeLeftRightUpArrow": EtiketHafıza(59, 3) = msoShapeLeftRightUpArrow
EtiketHafıza(60, 1) = 60: EtiketHafıza(60, 2) = "msoShapeLeftUpArrow": EtiketHafıza(60, 3) = msoShapeLeftUpArrow
EtiketHafıza(61, 1) = 61: EtiketHafıza(61, 2) = "msoShapeLightningBolt": EtiketHafıza(61, 3) = msoShapeLightningBolt
EtiketHafıza(62, 1) = 62: EtiketHafıza(62, 2) = "msoShapeLineCallout1": EtiketHafıza(62, 3) = msoShapeLineCallout1
EtiketHafıza(63, 1) = 63: EtiketHafıza(63, 2) = "msoShapeLineCallout1AccentBar": EtiketHafıza(63, 3) = msoShapeLineCallout1AccentBar
EtiketHafıza(64, 1) = 64: EtiketHafıza(64, 2) = "msoShapeLineCallout1BorderandAccentBar": EtiketHafıza(64, 3) = msoShapeLineCallout1BorderandAccentBar
EtiketHafıza(65, 1) = 65: EtiketHafıza(65, 2) = "msoShapeLineCallout1NoBorder": EtiketHafıza(65, 3) = msoShapeLineCallout1NoBorder
EtiketHafıza(66, 1) = 66: EtiketHafıza(66, 2) = "msoShapeLineCallout2": EtiketHafıza(66, 3) = msoShapeLineCallout2
EtiketHafıza(67, 1) = 67: EtiketHafıza(67, 2) = "msoShapeLineCallout2AccentBar": EtiketHafıza(67, 3) = msoShapeLineCallout2AccentBar
EtiketHafıza(68, 1) = 68: EtiketHafıza(68, 2) = "msoShapeLineCallout2BorderandAccentBar": EtiketHafıza(68, 3) = msoShapeLineCallout2BorderandAccentBar
EtiketHafıza(69, 1) = 69: EtiketHafıza(69, 2) = "msoShapeLineCallout2NoBorder": EtiketHafıza(69, 3) = msoShapeLineCallout2NoBorder
EtiketHafıza(70, 1) = 70: EtiketHafıza(70, 2) = "msoShapeLineCallout3": EtiketHafıza(70, 3) = msoShapeLineCallout3
EtiketHafıza(71, 1) = 71: EtiketHafıza(71, 2) = "msoShapeLineCallout3AccentBar": EtiketHafıza(71, 3) = msoShapeLineCallout3AccentBar
EtiketHafıza(72, 1) = 72: EtiketHafıza(72, 2) = "msoShapeLineCallout3BorderandAccentBar": EtiketHafıza(72, 3) = msoShapeLineCallout3BorderandAccentBar
EtiketHafıza(73, 1) = 73: EtiketHafıza(73, 2) = "msoShapeLineCallout3NoBorder": EtiketHafıza(73, 3) = msoShapeLineCallout3NoBorder
EtiketHafıza(74, 1) = 74: EtiketHafıza(74, 2) = "msoShapeLineCallout4": EtiketHafıza(74, 3) = msoShapeLineCallout4
EtiketHafıza(75, 1) = 75: EtiketHafıza(75, 2) = "msoShapeLineCallout4AccentBar": EtiketHafıza(75, 3) = msoShapeLineCallout4AccentBar
EtiketHafıza(76, 1) = 76: EtiketHafıza(76, 2) = "msoShapeLineCallout4BorderandAccentBar": EtiketHafıza(76, 3) = msoShapeLineCallout4BorderandAccentBar
EtiketHafıza(77, 1) = 77: EtiketHafıza(77, 2) = "msoShapeLineCallout4NoBorder": EtiketHafıza(77, 3) = msoShapeLineCallout4NoBorder
EtiketHafıza(78, 1) = 78: EtiketHafıza(78, 2) = "msoShapeMixed": EtiketHafıza(78, 3) = msoShapeMixed
EtiketHafıza(79, 1) = 79: EtiketHafıza(79, 2) = "msoShapeMoon": EtiketHafıza(79, 3) = msoShapeMoon
EtiketHafıza(80, 1) = 80: EtiketHafıza(80, 2) = "msoShapeNoSymbol": EtiketHafıza(80, 3) = msoShapeNoSymbol
EtiketHafıza(81, 1) = 81: EtiketHafıza(81, 2) = "msoShapeNotchedRightArrow": EtiketHafıza(81, 3) = msoShapeNotchedRightArrow
EtiketHafıza(82, 1) = 82: EtiketHafıza(82, 2) = "msoShapeNotPrimitive": EtiketHafıza(82, 3) = msoShapeNotPrimitive
EtiketHafıza(83, 1) = 83: EtiketHafıza(83, 2) = "msoShapeOctagon": EtiketHafıza(83, 3) = msoShapeOctagon
EtiketHafıza(84, 1) = 84: EtiketHafıza(84, 2) = "msoShapeOval": EtiketHafıza(84, 3) = msoShapeOval
EtiketHafıza(85, 1) = 85: EtiketHafıza(85, 2) = "msoShapeOvalCallout": EtiketHafıza(85, 3) = msoShapeOvalCallout
EtiketHafıza(86, 1) = 86: EtiketHafıza(86, 2) = "msoShapeParallelogram": EtiketHafıza(86, 3) = msoShapeParallelogram
EtiketHafıza(87, 1) = 87: EtiketHafıza(87, 2) = "msoShapePentagon": EtiketHafıza(87, 3) = msoShapePentagon
EtiketHafıza(88, 1) = 88: EtiketHafıza(88, 2) = "msoShapePlaque": EtiketHafıza(88, 3) = msoShapePlaque
EtiketHafıza(89, 1) = 89: EtiketHafıza(89, 2) = "msoShapeQuadArrowCallout": EtiketHafıza(89, 3) = msoShapeQuadArrowCallout
EtiketHafıza(90, 1) = 90: EtiketHafıza(90, 2) = "msoShapeRectangularCallout": EtiketHafıza(90, 3) = msoShapeRectangularCallout
EtiketHafıza(91, 1) = 91: EtiketHafıza(91, 2) = "msoShapeRightArrow": EtiketHafıza(91, 3) = msoShapeRightArrow
EtiketHafıza(92, 1) = 92: EtiketHafıza(92, 2) = "msoShapeRightBrace": EtiketHafıza(92, 3) = msoShapeRightBrace
EtiketHafıza(93, 1) = 93: EtiketHafıza(93, 2) = "msoShapeRightTriangle": EtiketHafıza(93, 3) = msoShapeRightTriangle
EtiketHafıza(94, 1) = 94: EtiketHafıza(94, 2) = "msoShapeRoundedRectangularCallout": EtiketHafıza(94, 3) = msoShapeRoundedRectangularCallout
EtiketHafıza(95, 1) = 95: EtiketHafıza(95, 2) = "msoShapeStripedRightArrow": EtiketHafıza(95, 3) = msoShapeStripedRightArrow
EtiketHafıza(96, 1) = 96: EtiketHafıza(96, 2) = "msoShapeTrapezoid": EtiketHafıza(96, 3) = msoShapeTrapezoid
EtiketHafıza(97, 1) = 97: EtiketHafıza(97, 2) = "msoShapeUpArrowCallout": EtiketHafıza(97, 3) = msoShapeUpArrowCallout
EtiketHafıza(98, 1) = 98: EtiketHafıza(98, 2) = "msoShapeUpDownArrowCallout": EtiketHafıza(98, 3) = msoShapeUpDownArrowCallout
EtiketHafıza(99, 1) = 99: EtiketHafıza(99, 2) = "msoShapeUTurnArrow": EtiketHafıza(99, 3) = msoShapeUTurnArrow
EtiketHafıza(100, 1) = 100: EtiketHafıza(100, 2) = "msoShapeWave": EtiketHafıza(100, 3) = msoShapeWave
EtiketHafıza(101, 1) = 101: EtiketHafıza(101, 2) = "msoShape16pointStar": EtiketHafıza(101, 3) = msoShape16pointStar
EtiketHafıza(102, 1) = 102: EtiketHafıza(102, 2) = "msoShape32pointStar": EtiketHafıza(102, 3) = msoShape32pointStar
EtiketHafıza(103, 1) = 103: EtiketHafıza(103, 2) = "msoShape5pointStar": EtiketHafıza(103, 3) = msoShape5pointStar
EtiketHafıza(104, 1) = 104: EtiketHafıza(104, 2) = "msoShapeActionButtonBackorPrevious": EtiketHafıza(104, 3) = msoShapeActionButtonBackorPrevious
EtiketHafıza(105, 1) = 105: EtiketHafıza(105, 2) = "msoShapeActionButtonCustom": EtiketHafıza(105, 3) = msoShapeActionButtonCustom
EtiketHafıza(106, 1) = 106: EtiketHafıza(106, 2) = "msoShapeActionButtonEnd": EtiketHafıza(106, 3) = msoShapeActionButtonEnd
EtiketHafıza(107, 1) = 107: EtiketHafıza(107, 2) = "msoShapeActionButtonHelp": EtiketHafıza(107, 3) = msoShapeActionButtonHelp
EtiketHafıza(108, 1) = 108: EtiketHafıza(108, 2) = "msoShapeActionButtonInformation": EtiketHafıza(108, 3) = msoShapeActionButtonInformation
EtiketHafıza(109, 1) = 109: EtiketHafıza(109, 2) = "msoShapeActionButtonReturn": EtiketHafıza(109, 3) = msoShapeActionButtonReturn
EtiketHafıza(110, 1) = 110: EtiketHafıza(110, 2) = "msoShapeArc": EtiketHafıza(110, 3) = msoShapeArc
EtiketHafıza(111, 1) = 111: EtiketHafıza(111, 2) = "msoShapeBentArrow": EtiketHafıza(111, 3) = msoShapeBentArrow
EtiketHafıza(112, 1) = 112: EtiketHafıza(112, 2) = "msoShapeBevel": EtiketHafıza(112, 3) = msoShapeBevel
EtiketHafıza(113, 1) = 113: EtiketHafıza(113, 2) = "msoShapeCan": EtiketHafıza(113, 3) = msoShapeCan
EtiketHafıza(114, 1) = 114: EtiketHafıza(114, 2) = "msoShapeCircularArrow": EtiketHafıza(114, 3) = msoShapeCircularArrow
EtiketHafıza(115, 1) = 115: EtiketHafıza(115, 2) = "msoShapeCross": EtiketHafıza(115, 3) = msoShapeCross
EtiketHafıza(116, 1) = 116: EtiketHafıza(116, 2) = "msoShapeCurvedDownArrow": EtiketHafıza(116, 3) = msoShapeCurvedDownArrow
EtiketHafıza(117, 1) = 117: EtiketHafıza(117, 2) = "msoShapeCurvedLeftArrow": EtiketHafıza(117, 3) = msoShapeCurvedLeftArrow
EtiketHafıza(118, 1) = 118: EtiketHafıza(118, 2) = "msoShapeCurvedUpArrow": EtiketHafıza(118, 3) = msoShapeCurvedUpArrow
EtiketHafıza(119, 1) = 119: EtiketHafıza(119, 2) = "msoShapeDiamond": EtiketHafıza(119, 3) = msoShapeDiamond
EtiketHafıza(120, 1) = 120: EtiketHafıza(120, 2) = "msoShapeDoubleBrace": EtiketHafıza(120, 3) = msoShapeDoubleBrace
EtiketHafıza(121, 1) = 121: EtiketHafıza(121, 2) = "msoShapeDoubleWave": EtiketHafıza(121, 3) = msoShapeDoubleWave
EtiketHafıza(122, 1) = 122: EtiketHafıza(122, 2) = "msoShapeDownArrowCallout": EtiketHafıza(122, 3) = msoShapeDownArrowCallout
EtiketHafıza(123, 1) = 123: EtiketHafıza(123, 2) = "msoShapeExplosion1": EtiketHafıza(123, 3) = msoShapeExplosion1
EtiketHafıza(124, 1) = 124: EtiketHafıza(124, 2) = "msoShapeFlowchartAlternateProcess": EtiketHafıza(124, 3) = msoShapeFlowchartAlternateProcess
EtiketHafıza(125, 1) = 125: EtiketHafıza(125, 2) = "msoShapeFlowchartCollate": EtiketHafıza(125, 3) = msoShapeFlowchartCollate
EtiketHafıza(126, 1) = 126: EtiketHafıza(126, 2) = "msoShapeFlowchartData": EtiketHafıza(126, 3) = msoShapeFlowchartData
EtiketHafıza(127, 1) = 127: EtiketHafıza(127, 2) = "msoShapeFlowchartDelay": EtiketHafıza(127, 3) = msoShapeFlowchartDelay
EtiketHafıza(128, 1) = 128: EtiketHafıza(128, 2) = "msoShapeQuadArrow": EtiketHafıza(128, 3) = msoShapeQuadArrow
EtiketHafıza(129, 1) = 129: EtiketHafıza(129, 2) = "msoShapeRectangle": EtiketHafıza(129, 3) = msoShapeRectangle
EtiketHafıza(130, 1) = 130: EtiketHafıza(130, 2) = "msoShapeRegularPentagon": EtiketHafıza(130, 3) = msoShapeRegularPentagon
EtiketHafıza(131, 1) = 131: EtiketHafıza(131, 2) = "msoShapeRightArrowCallout": EtiketHafıza(131, 3) = msoShapeRightArrowCallout
EtiketHafıza(132, 1) = 132: EtiketHafıza(132, 2) = "msoShapeRightBracket": EtiketHafıza(132, 3) = msoShapeRightBracket
EtiketHafıza(133, 1) = 133: EtiketHafıza(133, 2) = "msoShapeRoundedRectangle": EtiketHafıza(133, 3) = msoShapeRoundedRectangle
EtiketHafıza(134, 1) = 134: EtiketHafıza(134, 2) = "msoShapeSmileyFace": EtiketHafıza(134, 3) = msoShapeSmileyFace
EtiketHafıza(135, 1) = 135: EtiketHafıza(135, 2) = "msoShapeSun": EtiketHafıza(135, 3) = msoShapeSun
EtiketHafıza(136, 1) = 136: EtiketHafıza(136, 2) = "msoShapeUpArrow": EtiketHafıza(136, 3) = msoShapeUpArrow
EtiketHafıza(137, 1) = 137: EtiketHafıza(137, 2) = "msoShapeUpDownArrow": EtiketHafıza(137, 3) = msoShapeUpDownArrow
EtiketHafıza(138, 1) = 138: EtiketHafıza(138, 2) = "msoShapeUpRibbon": EtiketHafıza(138, 3) = msoShapeUpRibbon
EtiketHafıza(139, 1) = 139: EtiketHafıza(139, 2) = "msoShapeVerticalScroll": EtiketHafıza(139, 3) = msoShapeVerticalScroll
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