| Jak zmienić wygląd wszystkich komentarzy? |
|
Problem: Chciałbym zmienić wygląd wszystkich komentarzy w arkuszu. ![]() Rozwiązanie: Możesz skorzystać np. z takiego makra: Option Explicit Sub ZmianaWygladuKomentarzy() Dim rngKomentarze As Excel.Range Dim rngKomorka As Excel.Range 'Przypisuje zmienna do wszystkich komorek z komentarzami On Error Resume Next Set rngKomentarze = Arkusz1.UsedRange.SpecialCells(Type:=xlComments) On Error GoTo 0 If rngKomentarze Is Nothing Then Exit Sub 'Petla po wszystkich komorkach zawierajacych komentarz 'zmiana ksztaltu komentarza i koloru wypelnienia For Each rngKomorka In rngKomentarze With rngKomorka.Comment.Shape .AutoShapeType = msoShapeRoundedRectangle .Fill.ForeColor.SchemeColor = 1 End With Next rngKomorka 'Zniszczenie zmiennych obiektowych Set rngKomentarze = Nothing Set rngKomorka = Nothing End Sub |
|
| Zmieniony ( Wtorek, 29. Czerwiec 2010 13:40 ) |
