Kommentaarveld eigenschappen

[s0me0neelse]

Hoi,

is het mogelijk het kommentaarveld (rechtsklik kommentaar invoegen) van een ander lettertype te voorzien ?
Automatisch ingevuld wordt standaard de naam die ingegeven is onder instellingen/ gebruikersnaam en dit
is ook in vet geschreven. Dit zou ik willen veranderen in Arial/10pnt/niet vet.
Ook wil ik het liefst de gebruikersnaam niet hier standaard vermeld hebben. Ik kan echter onder instellingen
gebruikersnaam het veld niet leeg laten, microsoft vult dit automatisch weer in !

 

[edmoor]

Bij een Opmerking kan je daar niets aan veranderen, bij een Notitie wel.

 

[s0me0neelse]

Bij een Opmerking kan je daar niets aan veranderen, bij een Notitie wel.

Jammer, iig bedankt!

 

[gGerretje]

Ik gebruik hiervoor altijd de volgende macro.
Deze is niet van mezelf zoals in de macro vermeld.

Sub OpmerkingenOpmaken()
    'Deze code is ontwikkeld door Wim de Groot, april 2007 (ComputerIdee_2007-12)
    'en aangevuld door gGerretje op 24-3-2008
Dim Cell As Range
On Error Resume Next
    If Cells.SpecialCells(xlCellTypeComments).Count = 0 Then
    MsgBox "Dit werkblad heeft geen opmerkingen.", vbExclamation, "Opmerkingen opmaken"
    Else
    For Each Cell In Cells.SpecialCells(xlCellTypeComments)
        With Cell.Comment.Shape
        .Fill.Solid
        .Fill.ForeColor.SchemeColor = 13 '26=lgeel,42=lgroen,41=lblauw,7=blauw
        .Line.Weight = 2#
        .Line.ForeColor.SchemeColor = 53
            With .TextFrame
                .Characters.Font.Name = "Tahoma"
                .Characters.Font.Size = 8
                .Characters.Font.Bold = False
            End With
        End With
    Next
    MsgBox "Alle opmerkingen in dit werkblad" & vbCrLf & _
    "hebben uw eigen opmaak gekregen.", vbInformation, "Opmerkingen opgemaakt"
    End If
End Sub

Ik hoop dat je er je voordeel mee kunt doen.
@Edmoor Jij weet er absoluut meer van dan ik. Of heb ik de vraag niet goed begrepen?

Groetjes,
Ger

 

[edmoor]

Hoi Ger,

Een Opmerking is iets anders dan een Notiie.
Voor zover ik weet gat het met een Opmerking niet.
Maar ik leer ook graag

 

[gGerretje]

Hoi Ed,

Daar ben ik door de antwoorden op een van mijn laatste vragen ook achtergekomen.
Maar s0me0neelse had het over Rechtsklik - Kommentaar Invoegen (ik denk dat hij de taal op Duits heeft staan )
dus ik ging er van uit dat hij Opmerking bedoelde.

Dan werkt deze code toch?
Overigens handmatig toch ook?
Ben je ze niet aan het verwisselen?

 

[edmoor]

Hij weet zelf waar het precies om gaat, dus dat mag 'ie zelf proberen

 

[s0me0neelse]

Hoi, ik bedoel idd met de rechtermuisknop op een cel klikken en dan kommentaar toevoegen.
Zoals gGerretje al zegt, taal staat idd op Duits ;-)

 

[gGerretje]

Als je de opdracht Vorm Wijzigen toevoegt aan het lint (of aan de werkbalk Snelle toegang) kun je ook de vorm van de opmerking (Kommentar) wijzigen (wel eerst op de rand gaan staan).
En vervolgens een macro ervan maken en in VBA inpassen.

Ik denk dat je met onderstaande link ook die gebruikersnaam wel kunt verwijderen (ik neem aan dat je dat met VBA wil)
https://nl.extendoffice.com/documents/excel/6569-excel-comments.html#change_names1

Succes

 

[edmoor]

Ik zou zeggen, probeer het gewoon.
Je kan ook met rechts in het commentaar klikken om e.e.a. te wijzigen, als dat inderdaad het Notitie blokje is.
Ik heb namelijk in mijn Excel versie 2 mogelijkheden.
Opmerking en Notitie:

 

[gGerretje]

En daarna in het menu Bestand - Opties - Algemeen de gebruikersnaam wijzigen

 

[s0me0neelse]

bedankt voor de reacties, ik ga het morgen uitproberen.. Ik ben niet zo'n held met macro's en vba, ik hoop dat het lukt!

 

[edmoor]

Plaats anders je document met het betreffende blokje.
Misschien is er helemaal geen VBA nodig.

 

[s0me0neelse]

Het document kan ik niet plaatsen, bevat al onze persoonlijke gegevens en meer ;-) Maar : blokje?
Deze instelling wil ik graag op het volledige workbook en alle daarin geopende sheets toepassen...

 

[edmoor]

Lijkt me simpel om een verder leeg document te plaatsen met 1 zo'n Kommentaar blokje.
Als het om meerdere van die blokjes gaat is VBA inderdaad handig.

 

[s0me0neelse]

Oke, ik heb in een nieuwe sheet 1 cel voorzien van een kommentaar, ik hoop dat dit is wat je bedoeld?

 

[edmoor]

Dat bedoel ik en het gaat dus inderdaad om een Notitie.
Die kan je wel opmaken zoals gewenst.
Per stuk handmatig of middels VBA.



De code van gGerretje in #4 is daarvoor een prima voorbeeld.

 

[s0me0neelse]

De optie om de "afzonderlijke" notitie te bewerken was me nog niet eerder opgevallen.
Hiervan is natuurlijk het nadeel dat het nog meer werk is dan alleen de eerste "prp:" te verwijderen
en de tekst die ik zelf heb ingevoerd te laten staan !
Ik heb de code van gGerritje ingevoerd, aan een andere macro gehangen, omdat ik niet weet
hoe ik die macro in mijn workbook op zo een manier kan inbinden dat hij voor alle sheets werkt?

Moet het langs deze weg : zie scrshot

P.S.
De code die ik aan een macro heb toegevoegd werkt niet !

 

[gGerretje]

Het handigste is om met alt F11 naar VBA te gaan.
Dan in het VBAproject met jouw bestandsnaam rechtsklikken Invoegen Module en daar de code plakken.
Dan terug naar je Excel werkblad. Met Alt F8 kun je de macros weergeven en dan de betreffende macro uitvoeren.

Natuurlijk kun je in mijn code (die dus niet oorspronkelijk van mij is, maar beter goed gekopieerd dan slecht zelfgemaakt) wat dingen aanpassen zoals de kleur of de randkleur of het lettertype.
Nou ja, in principe alles natuurlijk.

Dat moet zeker ook voor alle werkbladen tegelijk kunnen, maar voor die oplossing blijf ik geïnteresseerd mee uitkijken naar de voorstellen van de echte specialisten.
In ieder geval heb ik hem in mijn persnlk.xls bestand staan, dan werk het in ieder geval al in alle bestanden.
Dat heb ik er ooit ingezet maar ik weet niet meer hoe. Maar dat moet volgens mij eenvoudig te vinden zijn.

Succes

 

[edmoor]

Voorbeeldje met die, iets aangepaste code achter een knop.
Dit wijzigt alle kommentaren op ieder werkblad: