COMPONENTE PICTUREBOX EXCEL 2013

MARCELODIAS 10/10/2014 13:49:42
#441852
Tem uma função que [Ô]zebra[Ô] uma listview mais a função requer um objeto do tipo PictureBox não encontrei este componente no office 2013.

tem como instarlar este componte no office 2013?


Function LVZebra(LV As ListView, Pic As PictureBox, Cor1 As Long, Cor2 As Long) As Boolean
JONATHANSTECKER 14/10/2014 19:08:55
#441926
O que você precisa amigo? Colorir um ListView utilizando o VBA do Excel 2013?
MARCELODIAS 15/10/2014 09:06:23
#441929
Ola JONATHANSTECKER, preciso colorir uma listview utilizando o VBA do Excel 2013, ja tenho uma função que consegui aqui no vbmania, só que não possui um componente que não tenho que e o [Ô]PictureBox[Ô], como faço para instalar este componete?

Segue o Codigo:
[ô]----------------------------------------------------------------------------------------------------------------------------------------
[ô] FUNÇÃO PARA ZEBRAR O LISTVIEW
[ô]----------------------------------------------------------------------------------------------------------------------------------------
Function LVZebra(LV As ListView, Pic As PictureBox, Cor1 As Long, Cor2 As Long) As Boolean
Dim lHght As Long
Dim lWdth As Long

LVZebra = False

If LV.View <> lvwReport Then Exit Function
If LV.ListItems.Count = 0 Then Exit Function

With LV
.Picture = Nothing
.Refresh
.Visible = True
.PictureAlignment = lvwTile
lWdth = .Width
End With

With Pic
.AutoRedraw = False
.Picture = Nothing
.BackColor = vbWhite
.Height = 1
.AutoRedraw = True
.BorderStyle = vbBSNone
.ScaleMode = vbTwips
.Top = Me.Top - 10000
.Width = Screen.Width
.Visible = False
.Font = LV.Font

With .Font
.Bold = LV.Font.Bold
.Charset = LV.Font.Charset
.Italic = LV.Font.Italic
.Name = LV.Font.Name
.Strikethrough = LV.Font.Strikethrough
.Underline = LV.Font.Underline
.Weight = LV.Font.Weight
.Size = LV.Font.Size
End With

lHght = LV.ListItems(1).Height

.Height = lHght * 2
.Width = lWdth

Pic.Line (0, 0)-(lWdth, lHght), Cor1, BF
Pic.Line (0, lHght)-(lWdth, (lHght * 2)), Cor2, BF
.AutoSize = True
.Refresh

End With

LV.Refresh
LV.Picture = Pic.Image
LVZebra = True

End Function
Faça seu login para responder
Voltar