Visual Basic ( VB ) is de programmeertaal van de Microsoft Office suite , waaronder Excel . Met VB kunt u dezelfde functies beschikbaar voor gebruikers van de standaard Excel -interface , inclusief het importeren van afbeeldingen wanneer een werkmap wordt geopend voeren . Een stap in het schrijven van een VB-programma om deze taak uit te voeren is het identificeren van de functies en objecten van het Excel- objectmodel nodig om foto's te importeren. Dit project vergt relatief weinig regels programmacode , en dat maakt het een ideale kennismaking met VB programmering voor Excel . Instructies Open Excel 1 , vervolgens met de rechtermuisknop op het tabblad " Blad1 " aan de onderkant van het scherm . Klik op de " View Code " item om de VB codering omgeving weer te geven . Kopen van 2 Dubbelklik op het " ThisWorkbook " item in de " Project" venster op het scherm vertrokken . In dit geval een lege code -venster het verstrekken van een ruimte om programma's die invloed hebben op de hele werkmap 3 Klik op de meest linkse keuzelijst boven in het scherm te gaan - . Die momenteel staat " Algemeen. " Klik op de " Werkboek " punt in die lijst . De meest rechtse keuzelijst geeft een lijst van functies die worden uitgevoerd wanneer de verschillende gebeurtenissen met betrekking tot de werkmap weer te geven . Een van deze gebeurtenis functies , " Open ", loopt wanneer de werkmap eerst wordt geopend . 4 Klik op de "Open " in het meest rechtse keuzelijst om een leeg event functie genaamd creëren " Workbook_Open . " Plak de volgende code boven deze functie 's " End Sub " statement : . ActiveSheet.Pictures.Insert ( " " ) Selecteer Type 5 over de tekst " < ; YOUR_PICTURE_FILENAME_HERE > " met de pad naam van een fotobestand op uw harde schijf (bijvoorbeeld " . C : \\ users \\ ClarkKent \\ Pictures \\ MyBeachParty.jpg " ) 6 Terug naar de standaard Excel -interface door op ' Alt - F11 , " en druk op " Alt - F4 " te initiëren sluiten van de werkmap . Typ een bestandsnaam voor de werkmap als daarom wordt gevraagd , en selecteer " Macro - enabled werkmap ( * . Xlsm ) " voor het bestandstype . 7 Open de werkmap. Het programma dat u in stap 4 voltooid zal uitvoeren , en laadt het opgegeven grafische bestand in een cel op het eerste werkblad . 8 Terug naar uw programma door het herhalen van stap 2 , vervang dan de huidige verklaring in het programma met deze ene : ActiveSheet.SetBackgroundPicture Bestandsnaam : = " " Herhaal stap 5 9 om het programma -code aanpassen om de foto te laden van uw harde schijf , dan sluiten en opnieuw openen van de werkmap. Excel zal een achtergrondafbeelding betegelde over het eerste werkblad weer te geven . 10 Terug naar uw programma in de VB -omgeving ( met behulp van de instructies stap 2 's ) . Vervang de enkele verklaring met deze : Dim strFile strFile = InputBox ( " Voer picture padnaam " ) ActiveSheet.SetBackgroundPicture Filename : = strFile < br > 11 sluiten en opnieuw openen van de werkmap. Uw programma zal je vragen om het volledige pad naam van een grafisch bestand deze keer . Voer de naam van het pad en klik op ' OK ' om de afbeelding te laden op achtergrond het eerste werkblad .
|