Please se på følgende skjermbilde, har den første diagrammet formateringen som du trenger, og nå ønsker du å bruke formateringen til andre oversikter.
Denne Lim funksjonen kan hjelpe deg til å kopiere et diagram format til andre oversikter med følgende:
1. Marker diagrammet du vil kopiere formatet til andre.
To. Deretter på kategorien Hjem klikker Kopier, se skjermbilde:
tre. Og velg deretter en annen diagram som du vil formatere, og klikk deretter på Home > Lim > Lim inn, og i den spratt ut dialogen, sjekk formater under opsjon Lim inn. Se skjermbilder:
4. Deretter klikker OK, og diagrammet formatering har blitt brukt på denne oversikten, og deretter gjenta denne prosedyren for hvert diagram du vil formatere. Endelig får du følgende resultater:
Kopier ett diagram format til andre oversikter med å lage en mal
Du kan også lagre formatert diagrammet som et diagram mal, og deretter endre andre diagrammer typen i malen diagramtype.
en. Velg nødvendig å formatere diagrammet, i kategorien Design, klikker du Lagre som mal, se skjermbilde:
to. I Lagre Chart mal vinduet angir et navn på malen diagrammet, og klikk deretter Lagre. Og det vil bli lagret sammen med resten av de diagramtyper, i en Maler-mappen, kan det velges når du oppretter et nytt diagram
3.. Når du har opprettet malen diagrammet, så kan du endre andre diagramtyper til denne malen, velger du diagrammet som trengs for å bli reformatering og høyreklikk, velg Endre diagramtype fra hurtigmenyen, se skjermbilde:
4. I Endre Diagramtype dialog, klikk Maler fra ruten til venstre, og velg opprettet diagram mal under Min Maler alternativ.
5. Klikk deretter på OK for å lukke denne dialogen, og diagrammet formatering har blitt kopiert til dette merket diagram. Se skjermbilde:
6. Gjenta deretter trinnet ovenfor 3- step5 å kopiere formatet til andre oversikter én etter én.
Kopier ett diagram format til andre diagram med VBA-kode
Med over to metodene, må du lime eller endre diagrammets formatering en etter en, hvis det er flere diagrammer må reformateres, kan følgende VBA-kode kan hjelpe deg å bruke ett diagram format til andre på en gang i det gjeldende regnearket.
1. Marker diagrammet du vil bruke formatet til andre oversikter.
To. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications Window.
3. Klikk Sett > Modul, og lim inn følgende makroen i modulen Window:
VBA-kode: Kopier ett diagram format til andre diagrammet samtidig
Sub CopyChartFormats () 'Updateby20140219Dim Ws Som WorksheetDim Cht Som ChartObjectDim xChart Som ChartDim BTittel Som BooleanDim bXTitle As BooleanDim bYTitle Som BooleanDim sTitle Som StringDim sXTitle Som StringDim sYTitle Som StringDim iSource Som LongDim iTarget Som LongDim iTotal Som LongDim iSeries Som LongDim vSource Som VariantDim vTarget Som VariantApplication.ScreenUpdating = FalseSet xChart = Application.ActiveChartiSource = xChart.SeriesCollection.CountSet Ws = Application. Active for hver Cht I Ws.ChartObjects Hvis Ws.Name = xChart.Parent.Parent.Name Og _ Cht.Name = xChart.Parent.Name Da Else Med Cht.Chart iTarget = .SeriesCollection.Count BTittel = .HasTitle Hvis BTittel Deretter sTitle = .ChartTitle.Characters.Text End If Hvis .HasAxis (xlCategory) Deretter bXTitle = .Axes (xlCategory) .HasTitle Hvis bXTitle Så sXTitle = .Axes (xlCategory) .AxisTitle.Characters.Text End If End If Hvis .HasAxis ( xlValue) Deretter bYTitle = .Axes (xlValue) .HasTitle Hvis bYTitle Så sYTitle = .Axes (xlValue) .AxisTitle.Characters.Text End If End If xChart.ChartArea.Copy .Paste Type: = xlFormats iTotal = .SeriesCollection.Count Hvis iTotal = iSource + iTarget Så For iSeries = 1 til iTarget vSource = Split (.SeriesCollection (iSeries) .Formula, ",") vTarget = Split (.SeriesCollection (iSeries + iSource) .Formula, ",") vTarget (UBound ( vTarget)) = vSource (UBound (vSource)) .SeriesCollection (iSeries) .Formula = Delta (vTarget, ",") Neste For iSeries = iTotal å iTarget + 1 trinn -1 .SeriesCollection (iSeries) .Delete Neste End If Hvis bXTitle Så .Axes (xlCategory) .HasTitle = True .Axes (xlCategory) .AxisTitle.Characters.Text = sXTitle End If Hvis bYTitle Så .Axes (xlValue) .HasTitle = True .Axes (xlValue) .AxisTitle.Characters.Text = sYTitle End If Hvis BTittel Så .HasTitle = True .ChartTitle.Characters.Text = sTitle End If End Med End If NextApplication.ScreenUpdating = TrueEnd Sub4. Deretter trykker F5 for å kjøre denne koden, og alle andre diagrammer i gjeldende regneark brukes med formateringen av den valgte diagrammet umiddelbart. Anmeldelser
Med over to metodene, må du lime eller endre diagrammets formatering en etter en, hvis det er flere diagrammer må reformateres, kan følgende VBA-kode kan hjelpe deg å bruke ett diagram format til andre på en gang i det gjeldende regnearket.
1. Marker diagrammet du vil bruke formatet til andre oversikter.
To. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications Window.
3. Klikk Sett > Modul, og lim inn følgende makroen i modulen Window:
VBA-kode: Kopier ett diagram format til andre diagrammet samtidig
Sub CopyChartFormats () 'Updateby20140219Dim Ws Som WorksheetDim Cht Som ChartObjectDim xChart Som ChartDim BTittel Som BooleanDim bXTitle As BooleanDim bYTitle Som BooleanDim sTitle Som StringDim sXTitle Som StringDim sYTitle Som StringDim iSource Som LongDim iTarget Som LongDim iTotal Som LongDim iSeries Som LongDim vSource Som VariantDim vTarget Som VariantApplication.ScreenUpdating = FalseSet xChart = Application.ActiveChartiSource = xChart.SeriesCollection.CountSet Ws = Application. Active for hver Cht I Ws.ChartObjects Hvis Ws.Name = xChart.Parent.Parent.Name Og _ Cht.Name = xChart.Parent.Name Da Else Med Cht.Chart iTarget = .SeriesCollection.Count BTittel = .HasTitle Hvis BTittel Deretter sTitle = .ChartTitle.Characters.Text End If Hvis .HasAxis (xlCategory) Deretter bXTitle = .Axes (xlCategory) .HasTitle Hvis bXTitle Så sXTitle = .Axes (xlCategory) .AxisTitle.Characters.Text End If End If Hvis .HasAxis ( xlValue) Deretter bYTitle = .Axes (xlValue) .HasTitle Hvis bYTitle Så sYTitle = .Axes (xlValue) .AxisTitle.Characters.Text End If End If xChart.ChartArea.Copy .Paste Type: = xlFormats iTotal = .SeriesCollection.Count Hvis iTotal = iSource + iTarget Så For iSeries = 1 til iTarget vSource = Split (.SeriesCollection (iSeries) .Formula, ",") vTarget = Split (.SeriesCollection (iSeries + iSource) .Formula, ",") vTarget (UBound ( vTarget)) = vSource (UBound (vSource)) .SeriesCollection (iSeries) .Formula = Delta (vTarget, ",") Neste For iSeries = iTotal å iTarget + 1 trinn -1 .SeriesCollection (iSeries) .Delete Neste End If Hvis bXTitle Så .Axes (xlCategory) .HasTitle = True .Axes (xlCategory) .AxisTitle.Characters.Text = sXTitle End If Hvis bYTitle Så .Axes (xlValue) .HasTitle = True .Axes (xlValue) .AxisTitle.Characters.Text = sYTitle End If Hvis BTittel Så .HasTitle = True .ChartTitle.Characters.Text = sTitle End If End Med End If NextApplication.ScreenUpdating = TrueEnd Sub4. Deretter trykker F5 for å kjøre denne koden, og alle andre diagrammer i gjeldende regneark brukes med formateringen av den valgte diagrammet umiddelbart. Anmeldelser