Opret diagram

Beskrivelse

Opret diagram

Et hurtigt eksempel på, hvordan man kan oprette et diagram. Koden forudsætter, at du har en tabel med navnet "Salgsdata"

Sub NyGraf()     Dim graf As ChartObject     Dim wks As Worksheet     Set wks = ActiveSheet     Set graf = wks.ChartObjects.Add(Left:=100, Top:=75, _              Width:=375, Height:=225)     With graf         .Chart.SetSourceData Source:=[Salgsdata]         .Chart.ChartType = xlXYScatterLines         .Name = "MinGraf"     End With End Sub

Du kan naturligvis også bruge en "gammeldags" range:)

Sub NyGraf2()     Dim graf As ChartObject     Dim wks As Worksheet     Dim rng As Range     Set wks = ActiveSheet     Set rng = wks.Range("A1").CurrentRegion     Set graf = wks.ChartObjects.Add(Left:=100, Top:=75, _         Width:=375, Height:=225)     With graf         .Chart.SetSourceData Source:=rng         .Chart.ChartType = xlXYScatterLines         .Name = "MinGraf"     End With End Sub

Ønsker du at ændre placeringen af grafen kan det gøres sådan her (forudsætter grafen har navnet "MinGraf"):

Sub FlytGraf()     Dim graf As ChartObject     Dim wks As Worksheet     Set wks = ActiveSheet     Set graf = wks.ChartObjects("MinGraf")     With graf         .Left = 200         .Top = 120         .Width = 200         .Height = 200     End With End Sub

Kender du ikke navnet på din graf kan du finde/sætte det via navneboksen i Excel. Hold CTRL og SHIFT nede og klik på grafen - så vil du kunne ændre navnet i boksen oppe til venstre.

Forrige Formler

Næste Tilpas diagramegenskaber

Brug for hjælp til VBA, VSTO eller SQL?

Scient Data tilbyder professionel IT-konsulentbistand

Kontakt Scient Data →