Nwlapcug.com


Come caricare un'immagine in Excel in fase di Autoopen utilizzando Visual Basic

Come caricare un'immagine in Excel in fase di Autoopen utilizzando Visual Basic


Visual Basic (VB) è il linguaggio di programmazione della suite Microsoft Office, tra cui Excel. Con Visual Basic è possibile eseguire le stesse funzioni disponibili per gli utenti dell'interfaccia standard di Excel, tra cui l'importazione di grafica quando viene aperta una cartella di lavoro. Un passo nella scrittura di un programma di Visual Basic per eseguire questa operazione è identificare le funzioni e gli oggetti del modello di oggetti di Excel per importare le immagini. Questo progetto richiede relativamente poche righe di codice del programma, e che lo rende un'introduzione ideale per VB programmazione per Excel.

Istruzioni

1

Aprire Excel, quindi fare clic destro la scheda denominata "Sheet1" nella parte inferiore dello schermo. Scegliere la voce "Visualizza codice" per visualizzare l'ambiente di codifica di VB.

2

Doppio clic sull'elemento "ThisWorkbook" nel riquadro "Del progetto" a sinistra dello schermo. Questa azione viene visualizzata una finestra di codice vuoto fornendo uno spazio per inserire programmi che incidono l'intera cartella di lavoro.

3

Fare clic sull'elenco a discesa più a sinistra nella parte superiore dello schermo..--che attualmente Visualizza "Generale". Fare clic sulla voce "Cartella di lavoro" in quella lista. L'elenco a discesa a destra verrà visualizzato un elenco di funzioni che vengono eseguite quando si verificano vari eventi che coinvolgono la cartella di lavoro. Uno di questi evento funzioni, "Open", viene eseguito quando la cartella di lavoro è aperto.

4

Fare clic sulla voce "Open" nell'elenco a discesa più a destra per creare una funzione di eventi vuota denominata "Workbook_Open." Incollare il codice seguente sopra istruzione "End Sub" di questa funzione:

ActiveSheet.Pictures.Insert ("< YOUR_PICTURE_FILENAME_HERE >"). Selezionare

5

Digitare il testo "< YOUR_PICTURE_FILENAME_HERE >" con il nome di percorso di un file di immagine sul disco rigido (ad esempio "C:\users\ClarkKent\Pictures\MyBeachParty.jpg").

6

Tornare all'interfaccia standard di Excel premendo "Alt-F11", quindi premere "Alt-F4" per avviare la chiusura della cartella di lavoro. Digitare un nome file per la cartella di lavoro quando viene richiesto e selezionare "Macro-enabled" cartella di lavoro (*. xlsm) per il tipo di file.

7

Riaprire la cartella di lavoro. Il programma che è completato nel passaggio 4 eseguire e caricare il file grafico specificato in una cella del foglio di lavoro prima.

8

Tornare al vostro programma ripetendo il passaggio 2, quindi sostituire l'istruzione corrente nel programma con questo:

ActiveSheet.SetBackgroundPicture Filename: = "< YOUR_PICTURE_FILENAME_HERE >"

9

Ripetere il passaggio 5 per personalizzare il codice di programma per caricare l'immagine dal disco rigido, quindi chiudere e riaprire la cartella di lavoro. Excel visualizzerà un'immagine di sfondo affiancata il primo foglio di lavoro.

10

Tornare al vostro programma nell'ambiente di VB (utilizzando istruzioni passo di 2). Sostituire l'istruzione singola con questi:

Dim strFile

strFile = InputBox ("Inserisci immagine percorso nome")

ActiveSheet.SetBackgroundPicture Filename: = strFile

11

Chiudere e riaprire la cartella di lavoro. Il programma vi chiederà per il nome di percorso completo di un file grafico questa volta. Immettere il nome del percorso, quindi fare clic su "OK" per caricare l'immagine sullo sfondo del primo foglio di lavoro.