Ako si vyrobiť graf na jednom liste v jazyku VBA

V balíku Microsoft Office , Visual Basic for Applications ( VBA ) je programovací shell , ktorý dáva pokročilým užívateľom možnosť vytvárať zložité a automatizované dokumenty . Jedným zo zložitých úloh , ktoré môžete urobiť v programe Excel pomocou jazyka VBA je vytvoriť graf a vložiť ho do rovnakého listu , na ktorom pracujete . Použite " ChartObject " objekt VBA vytvoriť a vložiť graf v hárku programu Excel . Návod dovolená 1

Otvorte Excel 2010 a ukazujú na kartu Vývojár , ak už nie je zobrazené . Kliknite na " Súbor " a potom " Možnosti " . Kliknite na " Prispôsobiť pás s nástrojmi " na paneli kategórií . Zvoľte " Developer " zo zoznamu hlavných kartách okna a potom kliknite na " OK " .
2

Kliknite na kartu " Vývojár " , ktorá by teraz mala byť ukazujúce na páse kariet . Kliknite na " Visual Basic " , otvorte editor jazyka .
3

Dvakrát kliknite na liste , v ktorom chcete vložiť graf z bolesti projektu . Všetky listy , ktoré sú v súčasnej dobe v projekte je uvedený v table . Kód pre listu sa otvorí v okne Kód . Ak ste už pridali kód do listu okno kód bude prázdne .
4

Kliknite na " Vložiť " a potom " postup . " Zadajte názov pre postup v okne názov , opustiť všetky ostatné možnosti rovnaké a potom kliknite na " OK " . Pre príklad v tomto článku , názov procedúry " embedChart . "
5

Pridajte kód , ktorý sa vložiť graf do listu . Kliknite medzi " Public Sub ... " a " End Sub " vyhlásenie , ktoré sú teraz v okne Kód . Budete pridať kód pre postup medzi dvoma vyhláseniami . Spoločnosť Microsoft vyvinula kód , ktorý vytvorí tabuľku a vložiť ju do aktuálnej tabuľky . Skopírujte tento kód do procedúry alebo napísať svoj ​​vlastný .

" Sub embedChart ( )

Dim chtNew Ako predkov

Set chtNew = Charts.Add

nastaviť chtNew = chtNew.Location ( Kde : = xlLocationAsObject , Name : = " Hárok1 " ) .

S chtNew

ChartType = xl3DPie

'Nastavte zdroj rozsah dát pre graf

SetSourceData Zdroj : .. = Sheets ( " Hárok1 " ) rozsah . ( " A1 : H2 " ) , PlotBy : . = _

xlRows

HasTitle = pravda

. ChartTitle.Text = " My Pie Chart "

End With

End Sub "
6

Kliknite na tlačidlo " Uložiť " na panel nástrojov Editor jazyka Visual Basic a zavrieť . Prejsť na liste , ktorý vložený graf v a skontrolujte , či je zobrazené.

• Predchádzajúca strana: Ako formátovať v percentách štýle 
• Ďalšia strana: Ako to urobiť Trend grafy