opmerkingen versxchijnen soms niet

[Snulk]

hallo,

Ik kreeg van iemand een vraag over opmerkingen plaatsen in Excel. Hij heeft een vreemd probleem.
Ene keer wordt opmerking wel getoond, andere keer alleen de indicator..

Zie bijgevoegd bestandje.

Dank alvast,
Jos

 

[VenA]

De 'tekstboxen' waar de comments instaan zijn ± 0mm breed en dan zie je ze niet.

 

[Snulk]

De 'tekstboxen' waar de comments instaan zijn ± 0mm breed en dan zie je ze niet.

Euh.. ok, maar ik snap de term tekstboxen niet. Hoe krijg ik dat breder dan?

gr.
Jos

 

[VenA]

Zie de reactie in #2

 

[Snulk]

Ik zie echt die blokjes niet hoor..
Jullie wel met het bestandje wat ik meestuurde?
Blijkbaar moet ik aan die 3 handgrepen de boel groter maken, maar vind dus de blokjes niet

Jos

 

[JEC.]

Hier bestandje. Klik op cel -> notitie bewerken -> trek pijltje(wat bij de notitie hoort) uit elkaar

 

[Snulk]

ook van deat converteren begrijp ik niets.

Kunnen jullie me zeggen hoe ik die tekstboxen groter kan maken dan?

gr
Jos

 

[JEC.]

Heb mijn bericht aangepast. Open dat bestandje eens en probeer het zelf.

 

[Snulk]

Bij jouw bestandje lukt het idd. Maar die oorspronkelijke van mij niet..

 

[VenA]

Een comment is een shape (vorm/plaatje/textbox) of hoe je het ook wil noemen. Aangezien je er tekst in hebt staan heb ik het een 'tekstbox' genoemd. Wat daar niet aan te begrijpen valt snap ik dan weer niet.

Draai deze macro even en alles is zichtbaar.

Sub VenA()
  For Each sh In Sheets("Blad1").Shapes
    sh.Width = 100
  Next sh
  Application.DisplayCommentIndicator = 1
End Sub

 

[HSV]

Of:

sh.textframe.autosize = -1

sub hsv()
dim cmt as comment
 For Each cmt In Sheets("Blad1").comments
    cmt.shape.textframe.autosize = -1
  Next cmt
Application.DisplayCommentIndicator = 1
End Sub