Buon pomeriggio a Tutti.
@seve(1978);
riesco a leggerti solo ora.
Il Codice VBA può essere inserito in un Modulo oppure in:
- Microsoft Excel Oggetti
- Sheet1 (CAMPIONATO)
in questo caso si attiva con un Evento.
Per i miei test ho utilizzato un Modulo.
In fase operativa conviene utilizzare un Evento; potresti provare con BeforeDoubleClick.
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$AG$1" Then
Cancel = True
Application.ScreenUpdating = False
Dim uriga As Long, uriga1 As Long
Dim i As Integer, e As Integer
Dim percorso As String
Const Pth As String = "C:\Prove\Catalogo con immagini\"
uriga = Range("AC" & Rows.Count).End(xlUp).Row
For e = 2 To uriga
On Error Resume Next
ActiveSheet.Shapes(1).Delete
Next
For i = 2 To uriga
percorso = Pth & Range("AC" & i).Value & ".png"
Range("AG" & i).Activate
With ActiveSheet.Pictures.Insert(percorso)
.Top = Range("AG" & i).Top + 1
End With
Next
Range("A" & i).Select
Application.ScreenUpdating = True
End If
End Sub
In questo modo il codice si attiva con Doppio Click in Cella AG1.
Buon fine settimana.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013