Ciao Riccardo,
Vorrei aggiungere delle immagini ai commenti di una cella, cosi quando serve posso vedere l'immagine del campione in esame;
ho cercato in rete e pare si possa ma con il mio excel 2016 non è possibile; se provo ad andare a modificare il commento posso
modificare il testa scritto e le sue caratteristiche ma non lo sfondo o aggiungere immagini.
Qualcuno ha idea di come si possa risolvere o se manca qualcosa al mio excel, o anche impostazioni bloccate.
Credo che si possa inserire un immagine in un commento con qualsiasi versione di Excel.
Comunque, per automatizzare il procedimento, prova qualcosa del genere:
- Alt+F11 per aprire l'editor di VBA
- Alt+IM per inserire un nuovo modulo di codice
- Nel nuovo modulo vuoto, incolla il seguente codice:
'=========>>
Option Explicit
'--------->>
Public Sub Tester()
Dim oComment As Comment
Dim V As Variant
V = Application.GetOpenFilename( _
("Immagini (*.jpg; *.bmp;*.png),*.jpg;*.bmp;*.png"), _
MultiSelect:=False, _
Title:="Selezionare immagine")
If V = False Then
Call MsgBox( _
Prompt:="Non hai scelto un immagine !", _
Buttons:=vbCritical, _
Title:="CODICE TERMINATO !")
Exit Sub
End If
With Selection.Cells(1)
On Error Resume Next
.Comment.Delete
On Error GoTo 0
Set oComment = .AddComment
End With
With oComment
.Visible = True
With .Shape
.Fill.UserPicture V
.ScaleWidth 2.6, msoFalse, msoScaleFromTopLeft
.ScaleHeight 2.8, msoFalse, msoScaleFromTopLeft
End With
End With
End Sub
'<<=========
- Alt+Q per chiudere l'editor di VBA e tornare a Excel
- Salva il file con l’estensione xlsm
- Alt+F8 per aprire la finestra di gestione delle macro
- Seleziona Tester
- Esegui
Potresti scaricare il mio file di prova Riccardo20171008.xlsm
===
Regards,
Norman
