Mit den Grafikfunktionen von Excel können Sie einer Arbeitsmappe eine Reihe vordefinierter Formen hinzufügen. Diese Formen, AutoShapes genannt, decken eine Vielzahl von Anforderungen ab. Wenn Sie der AutoFormen-Funktion jedoch Formen hinzufügen möchten, haben Sie kein Glück. Die Formen sind anscheinend fest in Excel codiert und können nicht geändert werden.

Sie können der Clip-Galerie jedoch Formen hinzufügen. Wenn Sie die Formen als WMF-Dateien formatieren, können sie einfach hinzugefügt und in einem Arbeitsblatt platziert werden. Wenn Sie beispielsweise mehrere verschiedene Flussdiagrammsymbole haben, die Sie in Excel verfügbar machen möchten, müssen Sie nur jedes Symbol im WMF-Format speichern und dann in die Clip-Galerie importieren. (Um Grafiken im WMF-Format zu speichern, müssen Sie ein spezielles Grafikprogramm wie Paint Shop Pro oder Corel Draw verwenden.)

Wenn Sie die Clip-Galerie aus irgendeinem Grund nicht verwenden möchten, können Sie Ihre eigenen AutoFormen durch eine Kombination von Makros und Grafiken in einem versteckten Arbeitsblatt simulieren. In den folgenden allgemeinen Schritten wird detailliert beschrieben, wie dies für eine Reihe von zwanzig Flussdiagrammsymbolen durchgeführt wird. Bei den Schritten wird davon ausgegangen, dass Sie mit dem Schreiben von Makros und dem Anpassen von Symbolleisten einigermaßen vertraut sind.

  1. Öffnen Sie eine Vorlagenarbeitsmappe und stellen Sie sicher, dass sie nur ein einziges Arbeitsblatt enthält.

  2. Platzieren Sie alle Flussdiagrammgrafiken auf dem Arbeitsblatt.

  3. Erstellen Sie eine neue Symbolleiste, nennen Sie sie MyShapes und stellen Sie sicher, dass sie der Vorlagenarbeitsmappe zugeordnet ist.

  4. Fügen Sie der Symbolleiste zwanzig Schaltflächen hinzu, eine für jede Flussdiagrammgrafik. Die Idee ist, dass durch Klicken auf eine Schaltfläche die zugehörige Flussdiagrammform zum aktiven Arbeitsblatt hinzugefügt wird.

  5. Bearbeiten Sie jede Schaltflächenfläche, um jede Flussdiagrammgrafik so genau wie möglich anzuzeigen. (Dies ist der schwierigste Teil dieser Schritte).

  6. Ändern Sie den ToolTip-Text für jede Schaltfläche nach Bedarf. Dies ist hilfreich, damit der Benutzer den Zweck jeder Flussdiagrammgrafik verstehen kann.

  7. Wählen Sie wiederum jede der Flussdiagrammgrafiken aus und benennen Sie sie. (Sie benennen die Grafiken, indem Sie sie auswählen und einen Namen in das Feld Name links in der Formelleiste eingeben.) Nehmen Sie für die Zwecke dieser Schritte an, dass Sie Namen wie FlowObj1, FlowObj2 usw. verwenden.

  8. Schreiben Sie zwanzig Makros (eines für jede Flussdiagrammgrafik) der folgenden Art:

Sub AddFlowObj1()

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

  1. Weisen Sie jedes der Makros der entsprechenden Symbolleistenschaltfläche zu.

  2. Fügen Sie im Arbeitsmappenmodul der Vorlage die folgenden Verfahren hinzu:

Private Sub Workbook_Open()

Application.CommandBars("MyShapes").Visible = True End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.CommandBars("MyShapes").Delete End Sub

  1. Speichern Sie die Vorlage als Excel-Add-In.

  2. Starten Sie Excel neu und verwenden Sie Extras | Add-Ins, um Ihr neues Add-In zu aktivieren.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (1995) gilt für Microsoft Excel 97, 2000, 2002 und 2003.