Legge autofigurer

October 27  by Eliza

Grafikk funksjonene i Excel kan du legge til en rekke forhåndsdefinerte figurer til en arbeidsbok. Disse figurene, kalt autofigurer, dekker et bredt spekter av behov. Hvis du ønsker å legge til figurer til autofigurer funksjonen, men er du ute av lykken. Formene er tilsynelatende hardkodet inn i Excel, og kan ikke endres.

Du kan imidlertid legge til figurer til Clip Gallery. Hvis du formaterer figurer som WMF-filer, de er enkle å legge og lett å plassere i et regneark. For eksempel, hvis du har en rekke forskjellige flytdiagram symboler som du ønsker å gjøre tilgjengelig i Excel, er alt du trenger å gjøre å spare hvert symbol i WMF-format, og deretter importere dem inn i Clip Gallery. (For å lagre grafikk i WMF-format, må du bruke en spesialisert grafikkprogram, for eksempel Paint Shop Pro eller Corel Draw.)

Hvis du ikke ønsker å bruke Clip Gallery for noen grunn, kan du simulere dine egne autofigurer gjennom en kombinasjon av makroer og grafikk i en skjult regneark. Følgende generelle trinn detalj hvordan du gjør dette for en serie på tjue flytdiagram symboler. Trinnene forutsetter at du er rimelig komfortabel å skrive makroer og tilpasse verktøylinjer.

  1. Åpne en mal arbeidsbok, og sørg for at den har bare en enkelt regneark.
  2. Plassere alle flytskjemaet grafikk på regnearket.
  3. Lag en ny verktøylinje, name it MyShapes, og sørg for at det er forbundet med malen arbeidsbok.
  4. Legg tjue knapper på verktøylinjen, en for hver flytskjema grafisk. Tanken er at når du klikker på en knapp vil legge til den tilhørende flytdiagram form til det aktive regnearket.
  5. Redigere hver knapp ansikt å vise så tett som mulig hver flytskjema grafisk. (Dette er den tøffeste delen av disse trinnene).
  6. Endre ToolTip tekst for hver knapp, som ønsket. Dette er nyttig slik at brukeren kan forstå hensikten med hver flytskjema grafisk.
  7. Velg og navngi hver av flytskjemaet grafikk i sving. (You name grafikken ved å velge dem og skrive inn et navn i Navn-boksen til venstre på formellinjen.) Ved anvendelsen av disse trinnene, forutsetter at du bruker navn som FlowObj1, FlowObj2, etc.
  8. Skriv tjue makroer (en for hver flytskjema grafisk) av følgende slag:

Sub AddFlowObj1 ()
ThisWorkbook.Sheets (1) .Shapes ("FlowObj1"). Copy
ActiveSheet.Paste
End Sub

  1. Gi hver av makroene til den tilsvarende knappen på verktøylinjen.
  2. I arbeidsbok modul av mal, legger følgende prosedyrer:

Private Sub Workbook_Open ()
Application.CommandBars ("MyShapes"). Synlig = Sant
End Sub

Private Sub Workbook_BeforeClose (Avbryt Som Boolean)
Application.CommandBars ("MyShapes"). Slett
End Sub

  1. Lagre malen som et Excel-tillegg.
  2. Restart Excel og bruke verktøy | Add-ins til aktiv den nye tillegget.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (1995) gjelder for Microsoft Excel 97, 2000, 2002, og 2003.