Diagrammer

Jeg kan ikke umiddelbart komme på, at denne mulighed forefindes.

Der findes noget, som hedder "Diagramtypografier", men man kan vist ikke duplikere og tilpasse dem på samme måde, som man kan med "Typografier for pivottabel" og "Tabeltypografier".

Måske kan en makro i stil med denne hjælpe. Den tilretter størrelse, placerer diagrammerne med fast afstand og ændrer titlen. Titlen kommer fra tekst i række 1.

Sub Macro1()
Dim x As Integer
On Error Resume Next
For x = 1 To 10 ' 10 angiver antal diagrammer
With ActiveSheet.ChartObjects("Chart " & x)
.Width = 150
.Height = 100
.Left = x * 200
End With
With ActiveSheet.ChartObjects("Chart " & x).Chart
.HasTitle = True
.ChartTitle.Text = Cells(1, x)
End With
Next
Cells(1, 1).Select
End Sub