İndicatör

[spilavci]

Merhabalar ,

Excelde indicatörün rengini değiştirmek mümkünmüdür?

Selamlar.

 

[Haluk]

Office2000'e kadar olan versiyonlarda değişmez.

Office2000'in üzerindeki versiyonlarda ise; ya buradaki üyeler, ya da dosyanızdaki açıklama hücresine yazdığınız sitedeki üyeler yardımcı olabilir.

 

[Ali]

Sub Indicatordegistir()
Dim ws As Worksheet
Dim cmt As Comment
Dim rngCmt As Range
Dim shpCmt As Shape
Dim shpW As Double
Dim shpH As Double

Set ws = ActiveSheet
shpW = 6
shpH = 4

For Each cmt In ws.Comments
Set rngCmt = cmt.Parent
With rngCmt
Set shpCmt = ws.Shapes.AddShape(msoShapeRightTriangle, _
rngCmt.Offset(0, 1).Left - shpW, .Top, shpW, shpH)
End With
With shpCmt
.Flip msoFlipVertical
.Flip msoFlipHorizontal
.Fill.ForeColor.SchemeColor = 12
.Fill.Visible = msoTrue
.Fill.Solid
.Line.Visible = msoFalse
End With
Next cmt

End Sub


.Fill.ForeColor.SchemeColor = kısmına 12 yazarsanız mavi 57 yazarsanız yeşil renk elde edeceksiniz 10 ise standar olan kırmızı renk olacaktır.

 

[spilavci]

Çok teşekkürler Haluk bey ve fructose.

Görüşmek üzere çok selamlar.