Commenti

Hai un problema con Excel?

Nuova discussione

Commenti
di Valentina (utente non iscritto) data: 07/10/2016 12:45:15
come posso cambiare a tutti i commenti l'ampiezza del riquadro?

ho provato a scrivere questo ma non funziona
Sub Commentiamo()
Dim oCmt As Comment
For Each oCmt In ActiveSheet.Comments
IncrementLeft -8.25
IncrementTop -0.75
ScaleWidth 1.02, msoFalse, msoScaleFromTopLeft
ScaleHeight 1.48, msoFalse, msoScaleFromTopLeft
Next oCmt
End Sub

Più che altro mi piacerebbe poter adattare il commento al contenuto, decidendo il colore di sfondo e il carattere e le dimensioni del carattere.

grazie

Sub Macro2()
'commenti
    With Selection.Font
        .Name = "Tahoma"
        .FontStyle = "Normale"
        .Size = 9
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .ReadingOrder = xlContext
        .Orientation = xlHorizontal
        .AutoSize = True
    End With
    With Selection
        .Placement = xlMoveAndSize
        .PrintObject = True
    End With
End Sub

di patel data: 10/10/2016 08:17:39
quando la domanda è confusionaria e non viene allegato un esempio con il risultato desiderato nessuno risponde
commenti
di Valentina (utente non iscritto) data: 11/10/2016 09:21:06
con tanti commenti in una pagina come faccio a fare in modo che tutti i commenti si adattino al contenuto che siano sempre alla stessa distanza della cella, che abbiano tutti lo stesso carattere e colore di sfondo?

di patel data: 11/10/2016 09:53:29
prova questa

Sub Commentiamo()
Dim oCmt As Comment
For Each oCmt In ActiveSheet.Comments
  With oCmt
    .Visible = True
    celltop = .Parent.Top
    cellLeft = .Parent.Left
    cellWidth = .Parent.Width
    .Shape.TextFrame.AutoSize = True
    .Shape.Left = cellLeft + cellWidth + 10
    .Shape.Top = celltop - 5
    With .Shape.TextFrame.Characters.Font
        .Name = "Times New Roman"
        .Size = 8
        .ColorIndex = xlAutomatic
    End With
   .Shape.Fill.ForeColor.SchemeColor = 15
  End With
Next oCmt
End Sub

Commenti
di Valentina (utente non iscritto) data: 07/10/2016 12:41:24
come posso cambiare a tutti i commenti l'ampiezza del riquadro?

ho provato a scrivere questo ma non funziona
Sub Commentiamo()
Dim oCmt As Comment
For Each oCmt In ActiveSheet.Comments
IncrementLeft -8.25
IncrementTop -0.75
ScaleWidth 1.02, msoFalse, msoScaleFromTopLeft
ScaleHeight 1.48, msoFalse, msoScaleFromTopLeft
Next oCmt
End Sub

Più che altro mi piacerebbe poter adattare il commento al contenuto, decidendo il colore di sfondo e il carattere e le dimensioni del carattere.

grazie

Vuoi Approfondire?