, vær sød at kigge på følgende skærmbillede, den første diagram har formatering, som du har brug for, og nu vil du til at anvende sin formatering til andre kort.,,,,, denne pasta særlige funktion kan hjælpe dig til at kopiere en figur format til andre skemaer med følgende foranstaltninger:,,,.,.vælg den oversigt, som du ønsker at kopiere deres format til andre.,,,. 2.så på den indre regning, klik, kopier, se skærmbillede:,,,,,, 3.og derefter vælge et kort, som de ønsker at reformatér, så klik, hjem, >, pasta, >, pasta, og i op i samtalen, check, formater, under, pasta, mulighed.se screenshots:,,,,, 4.så klik, okay, og figur formatering, er blevet anvendt på dette kort, og så gentag denne procedure hver journal, du ønsker at reformatér.endelig får man følgende resultater:,,,,,,, kopi en figur format til andre skemaer med at skabe en skabelon,,, du kan også redde dit formaterede figur som en figur - model, og ændre andre kort - til din model figur type.,,.,.vælg din for formatering kort på, design, tab, klik, medmindre skabelon, se skærmbillede:,,,,,, 2.i red figur skabelon, vindue, angive et navn, for din model kort, og så klik, red.og det vil blive reddet med resten af figur former, i en, skabeloner, servietter, det kan blive valgt, da de skaber et nyt kort.,,,,,, 3.efter at din model kort, så du kan skifte til andre former for denne model viser, udvælger kommissionen de kort, som skulle være formatteringen og højre klik, vælge, ændre figur type fra forbindelse menu, se skærmbillede:,,,,,,. 4.i, figur type dialog, klik, skabeloner, fra venstre side, og vælg skabt figur model under min skabeloner, mulighed.,,,,,,. 5.så klik, okay, for at afslutte denne dialog, og kortet er formatering er blevet kopieret til det udvalgte journal.se skærmbillede:,,,,,, 6.gentag ovenstående trin 3 - step5 kopiere format til andre kort, en efter en.,,,, skriv et kort format til andre kort med vba kode,,, med ovennævnte to metoder, må du pasta eller ændre skemaet er formatering, én efter én, hvis der er flere kort skal være blevet formateret. følgende vba kode kan hjælpe dig med at anvende en figur format til andre på en gang i den nuværende arbejdsplan.,,.,.vælg den oversigt, som de ønsker at anvende deres format til andre kort.,,,. 2.hold den, alat + f11, nøgler til at åbne den, microsoft visual basic for ansøgninger vindue,.,,, 3.klik, indsæt >, modul, og pasta følgende makroøkonomiske i modul vindue:,,, vba kode: kopi af en figur format til andre kort på en gang,,, - copychartformats() "updateby20140219 dim ws som kladde dim rådet som chartobject dim xchart som figur dim btitle som boolean - dim bxtitle som boolean - dim bytitle som boolean - dim stitle som snor dim sxtitle som snor dim sytitle som snor dim isource så længe dim itarget så længe dim itotal så længe dim iseries så længe dim vsource som variant dim vtarget som variant application.screenupdating = falsk xchart = application.activechart isource = xchart.seriescollection.count fastsat ws = application.activesheet for hver rådet i ws.chartobjects hvis ws. navn = xchart.parent.parent.namerådet og _. navn = xchart.parent.name så andre med rådet. figur itarget =. seriescollection.count btitle =. hastitle, hvis btitle så stitle =. charttitle.characters.text ende hvis. hasaxis (xlcategory), så bxtitle =. akser (xlcategory). hastitle, hvis bxtitle så sxtitle =. akser (xlcategory). axistitle.characters.text, hvis hvis hvis. hasaxis (xlvalue), så bytitle =. akser (xlvalue). hastitle, hvis bytitle så sytitle =. akser (xlvalue). axistitle.characters.text, hvis ende, hvis xchart.chartarea.copy. pasta type = xlformats itotal =. seriescollection. tælle, hvis itotal = isource + itarget for iseries = 1 til itarget vsource = split (. seriescollection (iseries). formel ",") vtarget = split (. seriescollection (iseries + isource). formel ",") vtarget (ubound (vtarget) = vsource (ubound (vsource)). seriescollection (iseries). formel = med (vtarget ",") næste for iseries = itotal til itarget + 1. trin - 1. seriescollection (iseries). det næste, hvis hvis bxtitle. akser (xlcategory). hastitle = sandt. akser (xlcategory). axistitle.characters.text = sxtitle ende, hvis bytitle så. akser (xlvalue). hastitle = sandt. akser (xlvalue). axistitle.characters.text = sytitle ende, hvis btitle. hastitle = sandt. charttitle.characters.text = stitle, hvis ende med, hvis næste application.screenupdating = sandt ende ubåd,,, 4., så tryk, f5, nøglen til at løbe denne kode, og alle andre figurer i de nuværende beregninger anvendes med formatering af de udvalgte figur straks.,,,,