Salve a tutti
Vorrei creare un tasto in excel che mi permetta
di inserire un oggetto (documento adobe acrobat)
e quest'ultimo sia visualizzato nel foglio come icona.
Premetto che mi occorrerebbe inserire 10 tasti per pagina e sono 365 pagine.
Si deve creare una macro????
In pratica l'office ha già questa funzione.
Inserisci ---> Oggetto---> Documento Adobe Acrobat (Spunta Visualiazza come Icona)---> OK

Spero che qualcuno sappia aiutarmi.

salve
spiega meglio cosa devi fare.
i 10 pulsanti ti servono per caricare 10 file pdf?
non ne basta uno solo?
saluti
Giap

---

Salve
Per inserire un pulsante nel foglio trovi esauriente spiegazione QUI

una volta creato il pulsante, devi copiare la macro che segue in un modulo standard ( Alt+F11 per accedere all'editor di VBA)
nella pagina che si aprirà, scegli dal menù Inserisci>Modulo
nella pagina bianca che si aprirà incolla il codice che segue.

Sub Incorpora()
Mydir = "D:\"
Myfile = "Il tuo file Pdf.pdf"

ActiveSheet.OLEObjects.Add(Filename:=Mydir & Myfile, Link:=False, _
DisplayAsIcon:=True, IconFileName:= _
"C:\Windows\Installer\{AC76BA86-7AD7-FFFF-7B44-AA0000000001}\PDFFile_8.ico", _
IconIndex:=0, IconLabel:=Myfile).Select
End Sub


NB. devi modificare secondo la tua esigenza i valori di Mydir e Myfile

Torna al foglio di Excel con Alt+F11
Clik dx sul pulsante > assegna macro - seleziona la macro "Incorpora"
Fatto ciò cliccando sul pulsante tii verrà inserita l'icona del file Pdf nel foglio
saluti
Giap

---

salve
per semplificare il tutto ti basta registrare una macro.
La funzione di registrazione della macro consente di memorizzare e tradurre in codice vba qualsiasi operazione eseguita
sul foglio.

Per registrare una macro segui le istruzione che trovi QUI

Attiva il registratore, esegui l'inserimento del pdf sul foglio e alla fine interrompi la registrazione
non ti resta altro che assegnare la macro al pulsante.
saluti
Giap

---

salve
la macro ti inserisce il file e lo apre perchè nell'istruzione che segue è inserito il comando Activate cambia con l'istruzione Select

supponendo che tu voglia inserire l'icona in cella D10 dovresti cambiare la macro in questo modo:


Sub Macro1()

Range("AD11:AH11").Select
ActiveSheet.OLEObjects.Add(ClassType:="Acrobat.Document.11", Link:=False, _
DisplayAsIcon:=True, IconFileName:= _
"C:\Windows\Installer\{AC76BA86-1033-FFFF-7760-000000000006}\_PDFFile.ico", _
IconIndex:=0, IconLabel:="Documento Adobe Acrobat").Select

With Range("d10")
Selection.ShapeRange.Left = .Left
Selection.ShapeRange.Top = .Top
End With


End Sub

saluti
Giap

---

salve
prova con le modifiche che ho apportato alla macro.

Sub Macro1()

Range("AD11:AH11").Select
ActiveSheet.OLEObjects.Add(ClassType:="Acrobat.Document.11", Link:=False, _
DisplayAsIcon:=True, IconFileName:= _
"C:\Windows\Installer\{AC76BA86-1033-FFFF-7760-000000000006}\_PDFFile.ico", _
IconIndex:=0, IconLabel:="Documento Adobe Acrobat").Select
nome = Selection.Name
With Range("d10")
Selection.ShapeRange.Left = .Left
Selection.ShapeRange.Top = .Top
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 15
Selection.ShapeRange.Width = 50
End With
x = MsgBox("Hai scelto il file?", vbOKCancel, "Scelta File")
If x = vbCancel Then
ActiveSheet.Shapes(nome).Delete
End If

End Sub




NB.
queste due righe impostano la misura dell'icona
Selection.ShapeRange.Height = 15
Selection.ShapeRange.Width = 50

i valori 15 e 50 equivalgono ad una cella Alta 15 e larga 9
adatta i valori secondo le tue esigenze



saluti
Giap

---

salve
le icone del documento acrobat, richiamano la finestra di scelta solo se la procedura di inserimento è stata interrotta
con "Annulla" . In questo caso viene creata solo l'icona sul foglio senza nessun link collegato.
saluti
Giap

---

salve
se cliccando sull'icona, non si apre il file ma ti compare la finestra di scelta, significa che la procedura di inserimento
non è stata completata con l'associazione del file.
Di più non saprei dirti non avendo il file sottomano.
saluti
Giap

---

Salve
questo è quanto avevi chiesto precedentemente:



Se vuoi che la macro intercetti il pulsante "Annulla" dalla finestra di scelta, non conosco altra soluzione che quella di usare un poup up.
Cliccando sul pulsante Annulla sembra che non faccia nulla ma toglie l'icona vuota dal foglio

saluti
Giap

---

Salve
con il foglio non protetto, click destro sull'oggetto>Formato oggetto> scheda protezione> togli la spunta da "Bloccato"
saluti
Giap

---