Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe een grafiekindeling kopiëren naar anderen in Excel?

Stel dat er meerdere verschillende soorten diagrammen in uw werkblad zijn, dan hebt u één diagram opgemaakt voor uw behoefte en nu wilt u deze diagramopmaak toepassen op andere diagrammen. U kunt natuurlijk anderen handmatig een voor een opmaken, maar dit kost veel tijd, zijn er snelle of handige manieren om één diagramindeling naar anderen in Excel te kopiëren?

Kopieer een grafiekindeling naar andere grafieken met de functie Plakken speciaal

Kopieer een grafiekindeling naar andere diagrammen met het maken van een sjabloon

Kopieer een grafiekindeling naar een ander diagram met VBA-code

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel brengt 300 geavanceerde functies naar Excel en verhoogt uw productiviteit met 80%
  • Auto-tekst: Maak uw favoriete grafieken, afbeeldingen, cellen, complexe formules en hergebruiken ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Nummers en valuta's omzetten in Engelse woorden ...
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen en gegevens bewaren; Dubbele rijen en som samenvoegen ...
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen ...
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Maak een verzendlijst en Verzend e-mails op waarde van Cell...
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig inzetbaar in bedrijf; Volledige functionaliteit 60-daagse gratis proefversie.

pijl blauwe rechterbel Kopieer een grafiekindeling naar andere grafieken met de functie Plakken speciaal


Bekijk de volgende schermafbeelding, de eerste grafiek heeft de opmaak die u nodig hebt en nu wilt u de opmaak ervan toepassen op andere grafieken.

doc-copy-chart-format1

Deze functie Plakken speciaal kan u helpen om één grafiekindeling naar andere grafieken te kopiëren met de volgende stappen:

1. Selecteer de grafiek waarvan u de indeling naar anderen wilt kopiëren.

2. Klik vervolgens op het tabblad Start op Kopiërenzie screenshot:

doc-copy-chart-format1

3. Selecteer vervolgens een ander diagram dat u opnieuw wilt indelen en klik vervolgens op Home > pasta > plakken speciaalen controleer in het pop-upvenster Formaten voor pasta keuze. Zie screenshots:

doc-copy-chart-format3 -2 doc-copy-chart-format4

4. Dan klikken OKen de diagramopmaak is toegepast op dit diagram en herhaal deze procedure voor elke grafiek die u opnieuw wilt indelen. Eindelijk krijg je de volgende resultaten:

doc-copy-chart-format1


pijl blauwe rechterbel Kopieer een grafiekindeling naar andere diagrammen met het maken van een sjabloon

U kunt uw opgemaakte grafiek ook opslaan als een maatsjabloon en vervolgens een ander diagramtype wijzigen in uw sjabloondiagramtype.

1. Selecteer de gewenste opmaakgrafiek op de Design tab, klik Opslaan als sjabloonzie screenshot:

doc-copy-chart-format1

2. In de Grafieksjabloon opslaan venster, geef een naam op voor uw sjabloondiagram en klik vervolgens op Bespaar. En het wordt opgeslagen met de rest van de diagramtypen, in a templates map, kan deze worden gekozen wanneer u een nieuwe grafiek maakt.

doc-copy-chart-format1

3. Nadat u uw sjabloondiagram heeft gemaakt, kunt u andere diagramtypen wijzigen in deze sjabloon, het diagram selecteren dat moet worden geherformatteerd en met de rechtermuisknop klikken. Diagramtype wijzigen uit het contextmenu, zie screenshot:

doc-copy-chart-format1

4. In de Diagramtype wijzigen dialoogvenster, klik templates in het linkerdeelvenster en selecteer uw gemaakte maatsjabloon hieronder Mijn sjablonen optie.

doc-copy-chart-format1

5. Dan klikken OK om dit dialoogvenster te sluiten en de opmaak van het diagram is naar dit geselecteerde diagram gekopieerd. Zie screenshot:

doc-copy-chart-format1

6. Herhaal vervolgens de bovenstaande stap 3- step5 om het formaat een voor een naar andere grafieken te kopiëren.


pijl blauwe rechterbel Kopieer een grafiekindeling naar een ander diagram met VBA-code

Met de bovenstaande twee methoden moet u de opmaak van de grafiek een voor een plakken of wijzigen, als er meerdere kaarten opnieuw moeten worden geformatteerd, kan de volgende VBA-code u helpen om één grafiekindeling tegelijk in het huidige werkblad op anderen toe te passen.

1. Selecteer het diagram waarop u de indeling wilt toepassen op andere diagrammen.

2. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic for Applications-venster.

3. Klikken bijvoegsel > module, en plak de volgende macro in de Module venster:

VBA-code: kopieer een grafiekindeling in een andere grafiek tegelijk

Sub CopyChartFormats()
'Updateby20140219
Dim Ws As Worksheet
Dim Cht As ChartObject
Dim xChart As Chart
Dim bTitle As Boolean
Dim bXTitle As Boolean
Dim bYTitle As Boolean
Dim sTitle As String
Dim sXTitle As String
Dim sYTitle As String
Dim iSource As Long
Dim iTarget As Long
Dim iTotal As Long
Dim iSeries As Long
Dim vSource As Variant
Dim vTarget As Variant
Application.ScreenUpdating = False
Set xChart = Application.ActiveChart
iSource = xChart.SeriesCollection.Count
Set Ws = Application.ActiveSheet
  For Each Cht In Ws.ChartObjects
    If Ws.Name = xChart.Parent.Parent.Name And _
        Cht.Name = xChart.Parent.Name Then
    Else
      With Cht.Chart
       iTarget = .SeriesCollection.Count
        bTitle = .HasTitle
        If bTitle Then
          sTitle = .ChartTitle.Characters.Text
        End If
        If .HasAxis(xlCategory) Then
          bXTitle = .Axes(xlCategory).HasTitle
          If bXTitle Then
            sXTitle = .Axes(xlCategory).AxisTitle.Characters.Text
          End If
        End If
        If .HasAxis(xlValue) Then
          bYTitle = .Axes(xlValue).HasTitle
          If bYTitle Then
            sYTitle = .Axes(xlValue).AxisTitle.Characters.Text
          End If
        End If
        xChart.ChartArea.Copy
        .Paste Type:=xlFormats
        iTotal = .SeriesCollection.Count
        If iTotal = iSource + iTarget Then
          For iSeries = 1 To iTarget
            vSource = Split(.SeriesCollection(iSeries).Formula, ",")
            vTarget = Split(.SeriesCollection(iSeries + iSource).Formula, ",")
            vTarget(UBound(vTarget)) = vSource(UBound(vSource))
            .SeriesCollection(iSeries).Formula = Join(vTarget, ",")
          Next
          For iSeries = iTotal To iTarget + 1 Step -1
            .SeriesCollection(iSeries).Delete
          Next
        End If
        If bXTitle Then
          .Axes(xlCategory).HasTitle = True
          .Axes(xlCategory).AxisTitle.Characters.Text = sXTitle
        End If
        If bYTitle Then
          .Axes(xlValue).HasTitle = True
          .Axes(xlValue).AxisTitle.Characters.Text = sYTitle
        End If
                If bTitle Then
          .HasTitle = True
          .ChartTitle.Characters.Text = sTitle
        End If
      End With
    End If
  Next
Application.ScreenUpdating = True
End Sub

4. Druk vervolgens op F5 toets om deze code uit te voeren, en alle andere grafieken in het huidige werkblad worden onmiddellijk toegepast met de opmaak van het geselecteerde diagram.


Gerelateerde artikelen:

Hoe een afbeelding als achtergrond in een grafiek in Excel toevoegen?

Hoe voeg ik pijlen toe aan lijn- / kolomdiagram in Excel?


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Werkt met Office 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ruta · 2 years ago
    Hello, Thank you for the code!
    However this line 20 makes a bug for me: iSource = xChart.SeriesCollection.Count
    I would appreciate your help!

    Thank you,
    Ruta
  • To post as a guest, your comment is unpublished.
    Melissa · 3 years ago
    hello. this works for me, to a degree. the format applies to my new chart just fine, but i also get the data from the first chart, that overrides my new chart data. more clearly, i have done chart 1 and love it! i also have chart 2, and don't love it. i want chart 2 to be formatted like chart 1. i click and copy chart 1. i click on chart 2, click paste>paste special>formats. now chart 2 has the appropriate format, but also has the data from chart 1. some chart 2 data remains, some has been replaced by chart 1 data. how do i only get format, not data?

    thank you!!