AW: Kommentar-Indikatoren farblich verändern
25.11.2015 18:46:31
Flocke
Ich habe davon wirklich so gar keine Ahnung, also weiß ich nicht ob es Sinn macht. Ich bin in dem Zusammenhang z.B. auf diesen Code gestoßen:
Sub CoverCommentIndicator()
'www.contextures.com\xlcomments03.html
Dim ws As Worksheet
Dim cmt As Comment
Dim rngCmt As Range
Dim shpCmt As Shape
Dim shpW As Double 'shape width
Dim shpH As Double 'shape height
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 = 10 'Red
'12=Blue, 57=Green
.Fill.Visible = msoTrue
.Fill.Solid
.Line.Visible = msoFalse
End With
Next cmt
End Sub
Mein Hauptziel ist es allerdings, dass sich ein Feld öffnet, wenn man mit der Maus über eine bestimmte Zelle fährt. (z.B. um Informationen über einen Zellinhalt anzeigen lassen zu können) Ähnlich wie bei einem Kommentar - nur dass mich bei den Kommentaren diese roten Ecken stören (das schaut bei zu vielen Kommentaren einfach nicht mehr benutzerfreundlich aus).
Eine Eingabemeldung ist auch nicht das gewünschte, da in dem Fall die Zelle angeklickt werden muss, damit die Meldung angezeigt werden kann. Sie soll aber erscheinen, wenn über die Zelle rüber gefahren wird.
Am besten wäre eine Kombination aus den Eigenschaften beider Möglichkeiten. Ich habe bisher aber noch nichts in die Richtung gefunden
Ist denn so etwas ggf. möglich oder im Falle programmierbar?