inserire nuova scorciatoia da tastiera excel

Question

Buongiorno a tutti. 

Sto preparando un file Excel (uso l'office 365 per aziende) in cui ho una colonna piana di nomi e in ogni cella della colonna vorrei inserire all'interno del commento una immagine. Dato che le celle sono molte farlo manualmente per ognuna impiegherebbe veramente molto tempo. Ad esempio usando il comando Cntr+F2 riesco a inserire il commento e poi dopo aggiungo l'immagine. Non esiste una scorciatoia o la possibilità di inserire una nuova scorciatoia da tastiera che permetta di inserire immediatamente un immagine nel commento senza fare tutti i passaggi (inserisci commento -->formato commento --> ecc...)?

Grazie per la disponibilità

Buona giornata

Answer 1

Mi fa piacere che funzioni :)

Per imparare potresti inizare a vedere che succede con il registratore di macro :)

Anche se poi ci va un po' di esperienza e studio degli, infiniti :) , oggetti di Excel e delle loro proprietà e metodi.

Answer 2

Ciao potresti provare in questo modo.

In un modulo standard del file copiare il seguente codice:

'---

Option Explicit

Sub AbilitaCTRLF2()

  Application.OnKey "^{F2}", "InserisciCommentoConImmagine"

End Sub

Sub DisabilitaCTRLF2()

  Application.OnKey "^{F2}"

End Sub

Sub InserisciCommentoConImmagine()

  Dim bInserisciCommento As Boolean

  Dim sImmagePath As String

  With Application.FileDialog(msoFileDialogFilePicker)

    .Title = "Seleziona immagine"

    With .Filters

      .Clear

      .Add "File Immagine", "*.jpeg,*.jpg,*.png,*.tiff"

    End With

    .AllowMultiSelect = False

    If .Show = -1 Then

      sImmagePath = .SelectedItems(1)

      bInserisciCommento = True

    End If

  End With

  If bInserisciCommento Then

    With ActiveCell

      On Error Resume Next

      .Comment.Delete

      On Error GoTo 0

      .AddComment

      With .Comment.Shape

        .Fill.UserPicture sImmagePath

      End With

    End With

  End If

End Sub

'---

Nel modulo ThisWorkbook (o Questa_cartella_di_lavoro) il seguente codice:

'---

Option Explicit

Private Sub Workbook_Activate()

  Call AbilitaCTRLF2

End Sub

Private Sub Workbook_Deactivate()

  Call DisabilitaCTRLF2

End Sub

'---

Quando il file viene attivato alla combinazione CTRL+F2 viene associata la macro "InserisciCommentoConImmagine".

La macro apre una finestra di dialogo con la quale selezionare un'immagine. Cancella un eventuale precedente commento e ne aggiunge uno nuovo inserendo l'immagine selezionata.

Quando il file viene deselezionato (o chiuso) la combinazione CTRL+F2 viene ripristinata.

Qui trovi un file di esempio: File esempio

vedi se è quello che cerchi.

ciao

N.B. ho inserito solo alcune estensioni dei file immagini. Eventualmente possono essere aggiunti in corrispondenza di

.Add "File Immagine", "*.jpeg,*.jpg,*.png,*.tiff"

N.B.2 ho impostato la combinazione CTRL+F2 ma potresti impostare qualsiasi combinazione desiderata.

Answer 3

Grazie ancora e buona giornata ;)

Answer 4

Meraviglioso!

Ha funzionato! ma come faccio a imparare a scrivere quei codici per costruirmi le mie scorciatoie ogni vota che voglio? =)