Formatering af diagram

Beskrivelse

Formater diagram

Skift eller sæt diagramtitel

Kan gøres sådan her:

Sub GrafTitel()     Dim graf As ChartObject     Dim wks As Worksheet     Set wks = ActiveSheet     Set graf = wks.ChartObjects("MinGraf")     With graf.Chart         'Vær sikker på, at der er en titel         .HasTitle = True         'Sæt titel         .ChartTitle.Text = "Overskrift til min graf"     End With End Sub

Og man kan naturligvis styre placering og format

Sub GrafTitel2()     Dim graf As ChartObject     Dim wks As Worksheet     Set wks = ActiveSheet     Set graf = wks.ChartObjects("MinGraf")     With graf.Chart         'Vær sikker på, at der er en titel         .HasTitle = True         'Sæt titel         With .ChartTitle             .Text = "Overskrift til min graf"             .Left = 10             .Font.Name = "Calibri"             .Font.Size = 60         End With     End With End Sub

Forklarende tekst

Du kan styre, hvor den forklarende tekst placeres sådan her:

Sub Stottetekster()     Dim graf As ChartObject     Dim wks As Worksheet     Set wks = ActiveSheet     Set graf = wks.ChartObjects("MinGraf")     With graf.Chart         .SetElement msoElementLegendRight         'Eller hvis du vil styre præcis placering         .Legend.Left = 10         .Legend.Top = 50     End With End Sub

Der er naturlivis en msoElementLegend for hver retning.

Forskellige elementer

Sub ForskelligeElementer()     Dim graf As ChartObject     Dim wks As Worksheet     Set wks = ActiveSheet     Set graf = wks.ChartObjects("MinGraf")     With graf.Chart         'Tilføj x-akse         .HasAxis(xlCategory, xlPrimary) = True        '[Metode #1]         .SetElement msoElementPrimaryCategoryAxisShow '[Metode #2]            'Sæt titel på x-aksen         .Axes(xlCategory, xlPrimary).HasTitle = True                 '[Metode #1]         .SetElement msoElementPrimaryCategoryAxisTitleAdjacentToAxis '[Metode #2]            'Tilføj y-akse         .HasAxis(xlValue, xlPrimary) = True        '[Metode #1]         .SetElement msoElementPrimaryValueAxisShow '[Metode #2]                  'Sæt titel på y-aksen         .Axes(xlValue, xlPrimary).HasTitle = True                 '[Metode #1]         .SetElement msoElementPrimaryValueAxisTitleAdjacentToAxis '[Metode #2]            'Tilføj data tekster         .SetElement msoElementDataLabelCenter          'Tilføj primære gridlinjer         .SetElement msoElementPrimaryValueGridLinesMajor          'Tilføj trendlinje         .SeriesCollection(1).Trendlines.Add Type:=xlLinear     End With End Sub

Løsning

https://www.thespreadsheetguru.com/blog/2015/3/1/the-vba-coding-guide-for-excel-charts-graph

Forrige Tilpas diagramegenskaber

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

Scient Data tilbyder professionel IT-konsulentbistand

Kontakt Scient Data →