Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[vba 2003]:adattare automaticamente finestra commenti

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[vba 2003]:adattare automaticamente finestra commenti

Postdi karug64 » 09/01/14 22:56

Salve a tutti.
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
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Sponsor
 

Re: [vba 2003]:adattare automaticamente finestra commenti

Postdi karug64 » 09/01/14 23:50

Scusate. Ho trovato la soluzione in un post del forum.
Ho risolto cosi:

Codice: Seleziona tutto
book_r.Sheets("R.XLS").Cells(ri(cdgletto) + 33, 1).Comment.Shape.TextFrame.AutoSize = True


In ogni caso Grazie.
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22


Torna a Applicazioni Office Windows


Topic correlati a "[vba 2003]:adattare automaticamente finestra commenti":


Chi c’è in linea

Visitano il forum: patel e 7 ospiti