Kommentaarveld eigenschappen

[s0me0neelse]

Het handigste is om met alt F11 naar VBA te gaan.

Bedankt, was het volledig vergeten hoe dat moest :-(

 

[s0me0neelse]

Hoi Edmoor,

ik heb dit even getest, het idee is wel aardig maar heeft verder voor mij geen zin.
De knop zorgt er namelijk voor dat ALLE kommentaren die ik ooit heb ingegeven zullen
veranderen in de voorgedefinieerde tekst van de macro. Dat is natuurlijk niet de bedoeling!

Misschien heb ik het nog niet goed uigelegd.
Wanneer ik op kommentaar invoegen klik, wil ik graag een leeg ingaveveld zien en wanneer
ik dan tekst ga ingeven, dan niet in bold

 

[edmoor]

Het was een voorbeeld, maar dan moet je dat dus gewoon per stuk doen.

 

[s0me0neelse]

Ik heb de macro iets veranderd, geen idee wat ik gedaan heb maar het werkt ;-)

Nu even het voorbeeld erbij... Voordat je in het voorbeeld op de knop drukt, eerst
even de kommentaren bekijken. Daarna druk je op de knop en zie je dat alle
oorspronkelijke kommentaren onveranderd zijn gebleven, alleen van bold naar
normale tekst zijn gegaan.

Wat jammer is, is dat "prp:" nog steeds standaard wordt ingevoegd!
Kan dit mbv de macro ook verwijderd worden ?
En kan ik die knop aan een bepaalde cel toewijzen b.v. cel a1 op zo een manier
dat deze ook de grootte van de cel aanneemt ?

 

[edmoor]

Het invoegen van de gebruikersnaam gebeurt bij het het invoegen van een kommentaar.
Daar doet de code niets mee.

Je kan met VBA ook een Kommentaarblokje toevoegen zonder naa:

ActiveCell.AddComment ("Tekst")

Een knop is een object op een werkblad, die kan je naar wens aanpassen.

 

[s0me0neelse]

Ik heb geprobeerd de knop op een andere plek te zetten, krijg het niet voor elkaar!
Ook verkleinen van de knop en het eruit halen van de tekst lukt me niet. Ik kan de
knop niet verslepen, niet met rmb aanklikken, geen flauw benul hoe ik zo'n knop
kan bewerken.... Ja, ik weet het.... Ben gewoon een excel amateur

 

[edmoor]

Klik op de tab Ontwikkelaars in het Excel menu en dan op Ontwerpmodus.
Dan kan je met een knop doen wat je maar wilt.
https://support.microsoft.com/nl-nl...eergeven-e1192344-5e56-4d45-931b-e5fd9bea2d45

 

[s0me0neelse]

Oke, bedankt voor de tip. Ga ermee aan de gang :thumb:

 

[snb]

Private Sub CommandButton1_Click()
  For Each it In ThisWorkbook.Sheets
    On Error Resume Next
    
    For Each it1 In it.Cells.SpecialCells(-4144)
      If Err.Number <> 0 Then Exit For
      With it1.Comment.Shape
        With .Fill
          .Solid
          .ForeColor.SchemeColor = 26
        End With
        With .Line
          .Weight = 2
          .ForeColor.SchemeColor = 53
        End With
        With .TextFrame.Characters.Font
          .Name = "arial"
          .Size = 8
          .Bold = False
        End With
        it.Comment.Text = Replace(it.Comment.Text, Application.UserName, "")
      End With
    Next
    Err.Clear
  Next
End Sub

Ter voorkoming van een 'Author':

application.username=" "

NB. Het is niet wenselijlk een variabele een naam te geven die al bestemd is voor een Object in VBA (Zoals bijv. 'Cell').