Andres ha un’immagine negli Appunti. Vorrebbe, per la cella selezionata, inserire l’immagine in un commento. Se la cella non ha commenti, è necessario crearne uno. Se è già presente un commento, è necessario aggiungervi l’immagine. Andres sa che ci vorrebbe una macro, ma non è sicuro di come lavorare con i commenti in una macro per fare ciò di cui ha bisogno.

Microsoft, nell’ultima versione di Office 365, ora fa riferimento a comments come notes. Ai fini di questo suggerimento, tuttavia, continuerò a farne riferimento con il nome tradizionale comments.

Ciò che Andres vuole fare non è neanche lontanamente facile come si potrebbe desiderare. Il primo problema è che non sembra esserci alcun modo in VBA di utilizzare gli Appunti come origine di un’immagine destinata a un commento. È possibile aggirare questo problema cambiando la sorgente in un’immagine in un file, in altre parole, in modo che la macro consenta all’utente di selezionare un file di immagine che viene poi inserito nel commento.

Sub AddCommentPicture()

Dim PicChoice As Variant

If ActiveCell.Comment Is Nothing Then         ActiveCell.AddComment     End If     PicChoice = Application.GetOpenFilename("JPEGs .jpg,.jpg")



If PicChoice = False Then         MsgBox "No file was selected."

Else         ActiveCell.Comment.Shape.Fill.UserPicture PicChoice         ActiveCell.Comment.Shape.LockAspectRatio = True     End If End Sub

La macro verifica la cella attiva per vedere se ha un commento. In caso contrario, ne aggiungerà uno. Quindi visualizza una finestra di dialogo Apri che mostra solo i file JPG. (È possibile modificare il parametro della funzione GetOpenFilename per indicare quali tipi di file devono essere visualizzati.) Il file selezionato viene quindi assegnato al commento.

Nota che il codice non fa nulla per ridimensionare l’immagine. È possibile, se lo si desidera, aggiungere il codice necessario per eseguire il ridimensionamento. Ti consigliamo di aggiungere quel codice direttamente dopo la riga che blocca le proporzioni dell’immagine, verso la fine della macro.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (5489) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 e Excel in Office 365.