Ho registrato questa macro:
- Codice: Seleziona tutto
Range("A151").Select
Range("A151").Comment.Text Text:= "Ciao"
Range("A151").Comment.Text Text:= "Come va ? " & chr(10)
Range("A151").Comment.Text Text:= "Questa è una prova" & chr(10)
Range("A151").Comment.Text Text:= "Fine"
Selection.ShapeRange.ScaleWidth 12.68, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 2.74, msoFalse, msoScaleFromTopLeft
Dovrei adattarla, pero' a questo mio codice:
- Codice: Seleziona tutto
If Len(Trim(ag7(1))) <> 0 Then
book_r.Sheets("R.XLS").Cells(ri(cdgletto) + 33, 1).AddComment
book_r.Sheets("R.XLS").Cells(ri(cdgletto) + 33, 1).Comment.Visible = False
For x = 1 To 29
If Len(Trim(ag7(x))) <> 0 Then
book_r.Sheets("R.XLS").Cells(ri(cdgletto) + 33, 1).Comment.Text Text:=Trim(ag7(x)) & Chr(10)
End If
Next x
'book_r.Sheets("R.XLS").Cells(ri(cdgletto) + 33, 1).ShapeRange.ScaleWidth 9.89, msoFalse, msoScaleFromTopLeft
'book_r.Sheets("R.XLS").Cells(ri(cdgletto) + 33, 1).ShapeRange.ScaleHeight 2.84, msoFalse, msoScaleFromTopLeft
End If
ma le linee commentate non vanno.
Non so come adattare il codice (da RANGE a CELLS) e se fosse possibile vorrei adattare automaticamente (una sorta di autosize) al testo la finestra del commento.
E' possibile ?
Grazie