Come caricare un'immagine in Excel a AutoOpen tempo utilizzando Visual Basic

December 6

Come caricare un'immagine in Excel a AutoOpen tempo utilizzando Visual Basic


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

istruzione

1 Aprire Excel, quindi fare clic destro sulla scheda con l'etichetta "Sheet1" nella parte inferiore dello schermo. Fare clic sulla voce "Visualizza codice" per visualizzare l'ambiente di codifica VB.

2 Fare doppio clic sulla voce "ThisWorkbook" nel riquadro "Progetto" a sinistra dello schermo. Questa azione visualizza una finestra di codice bianco che fornisce uno spazio per entrare in programmi che hanno un impatto l'intera cartella di lavoro.

3 Fare clic sul più sinistra-elenco a discesa nella parte superiore dello schermo - ". Generali", che attualmente mostra Fare clic sulla voce "cartella di lavoro" in quella lista. Il più a destra nell'elenco a discesa viene visualizzato un elenco di funzioni che vengono eseguiti quando si verificano vari eventi che coinvolgono la cartella di lavoro. Una di queste funzioni di evento, "Open", viene eseguito quando la cartella di lavoro prima apertura.

4 Fare clic sulla voce "Apri" nel più a destra elenco a discesa per creare una funzione di evento vuoto chiamato "Workbook_Open." Incollare il seguente codice sopra dichiarazione "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 \ Immagini \ MyBeachParty.jpg").

6 Ritorna alla interfaccia standard di Excel con il tasto "Alt-F11", quindi premere "Alt-F4" per avviare la chiusura della cartella di lavoro. Digitare un nome di file per la cartella di lavoro quando richiesto, e selezionare "cartella di lavoro con attivazione macro (* .xlsm)" per il tipo di file.

7 Riaprire la cartella di lavoro. Il programma è stato completato nel passaggio 4 verrà eseguito, e caricare il file grafico si è specificato in una cella del primo foglio di lavoro.

8 Rientro al vostro programma ripetendo il passo 2, quindi sostituire l'istruzione corrente nel programma con questo:

ActiveSheet.SetBackgroundPicture Nome file: = "<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 consente di visualizzare un'immagine di sfondo piastrelle in tutto il primo foglio di lavoro.

10 Rientro al vostro programma in ambiente VB (utilizzando le istruzioni passo a 2). Sostituire l'istruzione singolo con questi:

Dim strFile

strFile = InputBox ( "Enter immagine nome di percorso")

ActiveSheet.SetBackgroundPicture Nome file: = strFile

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