Kako spremeniti barvo indikatorja komentarja v Excelu?
V Excelu se po vstavitvi komentarja v zgornjem desnem kotu celice prikaže majhen indikator rdečega trikotnika. Mnogi uporabniki Excela se morda sprašujejo, ali je mogoče rdečo barvo indikatorja spremeniti v druge barve, ki so jim všeč. V tem članku bom govoril o rešitvi za dokončanje te naloge.
Spremenite barvo indikatorja komentarja s kodo VBA
Spremenite barvo indikatorja komentarja s kodo VBA
Ne moremo neposredno in hitro spremeniti barve indikatorjev komentarjev, vendar vam lahko naslednja koda VBA pomaga pri risanju trikotne oblike, ki prekriva vsak indikator komentarja z določeno barvo, ki jo potrebujete na aktivnem listu.
1. Aktivirajte svoj delovni list, v katerem želite spremeniti barvo indikatorjev komentarjev.
2. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.
3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: Spremenite barvo indikatorja komentarja v aktivnem listu
Sub CoverCommentIndicator()
'Update 20141110
Dim pWs As Worksheet
Dim pComment As Comment
Dim pRng As Range
Dim pShape As Shape
Set pWs = Application.ActiveSheet
wShp = 6
hShp = 4
For Each pComment In pWs.Comments
Set pRng = pComment.Parent
Set pShape = pWs.Shapes.AddShape(msoShapeRightTriangle, pRng.Offset(0, 1).Left - wShp, pRng.Top, wShp, hShp)
With pShape
.Flip msoFlipVertical
.Flip msoFlipHorizontal
.Fill.ForeColor.SchemeColor = 12
.Fill.Visible = msoTrue
.Fill.Solid
.Line.Visible = msoFalse
End With
Next
End Sub
4. Po lepljenju kode pritisnite F5 tipko za izvajanje kode, vsi kazalniki rdečega trikotnika pa so prekriti z modrimi trikotniki, kot je prikazano na naslednjih posnetkih zaslona:
Opombe:
1. V zgornji kodi lahko spremenite modro barvo na svojo všeč, tako da samo spremenite barvni indeks v skriptu .Fill.ForeColor.SchemeColor = 12.
2. Oblika trikotnika, ki jo dodate nad VBA, bo spremenjena, ko spremenite velikost celice.
3. Če želite takoj odstraniti vse barvne oblike trikotnika, vam bo v pomoč naslednja koda VBA:
Koda VBA: Odstranite trikotne oblike nad indikatorji komentarjev
Sub RemoveIndicatorShapes()
'Update 20141110
Dim pWs As Worksheet
Dim pShape As Shape
Set pWs = Application.ActiveSheet
For Each pShape In pWs.Shapes
If Not pShape.TopLeftCell.Comment Is Nothing Then
If pShape.AutoShapeType = msoShapeRightTriangle Then
pShape.Delete
End If
End If
Next
End Sub
Sorodni članki:
Kako označiti vse celice s komentarji v Excelu?
Kako prikazati ali skriti vse komentarje in kazalnike komentarjev v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!