☰

Wie ändere ich den Standardfarbstil für SmartArt in Office?

tag-icon • tag-icon microsoft-office colors microsoft-powerpoint
Wie ändere ich den Standardfarbstil für SmartArt in Office?

Ich erstelle gerade eine neue Powerpoint-Vorlage für unser kleines Unternehmen. Dabei möchten wir den Leuten Zeit sparen, indem beim Erstellen von Grafiken mit SmartArt automatisch die richtigen Farben ausgewählt werden.

Der Wechsel zu einer anderen Farbe ist ganz einfach, hier sehen Sie ein Beispiel:http://pcunleashed.com/powerpoint/wie-man-seine-Smartart-Grafiken-in-Powerpoint-neu-einfärben-kann/

Meine Frage ist: Ist es möglich, zu ändern, welches dieser Farbschemata beim Erstellen neuer Grafiken als Standard verwendet wird? Meine Hauptakzentfarbe ist Blau, daher hat die Standardgrafik blaue Formen mit weißem Text. Ich hätte gerne, dass der Standard nur ein blauer Umriss mit weißem Hintergrund und schwarzem Text ist. Dies ist eine weitere der verfügbaren Optionen, aber nicht die aktuelle Standardeinstellung.

Dies würde unseren Leuten beim Erstellen von Diagrammen eine Menge Zeit sparen.

Antwort1

Leider gibt es (ab PowerPoint 2013) keine Möglichkeit, das Standardformat für SmartArt festzulegen oder mit der Formatübertragung alle Formen innerhalb einer SmartArt-Grafik zu formatieren.

Aber wenn eine solche Frage auftaucht, kommen VBA-Makros und Add-Ins zur Rettung.

Das folgende, sehr einfache Makro übernimmt die Linien- und Füllfarbe entweder von Ihrer ausgewählten Form oder vom Standardformstil, wenn Sie nichts auswählen, und wendet sie auf jede Form innerhalb der SmartArt-Grafik an. Wenn Sie nicht wissen, wie man ein Makro verwendet, sehen Sie sich diese Beispiele an:

http://i-present.co.uk/category/blog/vba/

Es ist grundlegend, da es buchstäblich Hunderte von Eigenschaften gibt, die ein Benutzer festlegen kann, wie z. B. Füllverläufe, Bilder, Texturen, Linienfarben, Breiten, Striche und Effekte wie Reflexion, Glanz usw.

Ich besitze eine Firma namens GMARK, die auf die Entwicklung von PowerPoint-Add-Ins spezialisiert ist (http://i-present.co.uk) und könnte bei Interesse hierfür ein Add-In erstellen.

Sub SetSmartArtToDefaultShapeStyle() 
Dim oSld As Slide 
Dim oShpCheck As Shape, oShpSource As Shape, oShpNode 
Dim oNode As SmartArtNode 
Dim DeleteShape As Boolean

On Error GoTo errorhandler

Set oSld = ActivePresentation.Slides(ActiveWindow.View.Slide.SlideIndex)

If Not ActiveWindow.Selection.HasChildShapeRange Then 
  Set oShpSource = oSld.Shapes.AddShape(msoShapeRectangle, 0, 0, 10, 10) 
  DeleteShape = True 
Else 
  Set oShpSource = ActiveWindow.Selection.ShapeRange(1) 
End If

oShpSource.PickUp

For Each oShpCheck In oSld.Shapes ' As Shapes 
  With oShpCheck 
    If .HasSmartArt Then 
      For Each oNode In .SmartArt.Nodes 
        For Each oShpNode In oNode.Shapes ' As ShapeRange 
          With oShpNode 
            .Line.Visible = oShpSource.Line.Visible 
            .Fill.Visible = oShpSource.Line.Visible 
            If .Line.ForeColor.Type = msoColorTypeRGB Then _ 
              .Line.ForeColor.RGB = oShpSource.Line.ForeColor.RGB 
            If .Line.ForeColor.Type = msoColorTypeScheme Then _ 
              .Line.ForeColor.ObjectThemeColor = oShpSource.Line.ForeColor.ObjectThemeColor 
            If .Fill.ForeColor.Type = msoColorTypeRGB Then _ 
              .Fill.ForeColor.RGB = oShpSource.Fill.ForeColor.RGB 
            If .Fill.ForeColor.Type = msoColorTypeScheme Then _ 
              .Fill.ForeColor.ObjectThemeColor = oShpSource.Fill.ForeColor.ObjectThemeColor 
          End With 
        Next 
      Next 
    End If 
  End With 
Next

If DeleteShape = True Then oShpSource.Delete

Exit Sub

errorhandler: 
MsgBox "There was an error : " & Err.Number & " : " & Err.Description, vbCritical + vbOKOnly, "SmartArt Format by i-present.co.uk" 
Err.Clear 
If DeleteShape = True Then oShpSource.Delete 
End Sub

Antwort2

Hier ist eine viel einfachere Möglichkeit, die Standardfarbe zu ändern, die mit SmartArt-Grafiken verwendet wird. Ich habe dies nur mit PowerPoint 2010 getestet. Sie müssen die Farbpalette ändern. Ich bin nicht 100 % sicher, ob dies das ist, wonach Sie suchen, aber es könnte anderen helfen.

Wählen Sie auf der Registerkarte „Entwurf“ das Dropdown-Menü „Farben“ aus. Wählen Sie „Neue Designfarben erstellen“ aus und ändern Sie die Farbe „Akzent 1“ in die Farbe, die Sie als Standardfarbe für SmartArt verwenden möchten.

Beachten Sie jedoch, dass dies Auswirkungen auf Dinge wie die Aufzählungszeichenfarben auf Ihren Folien haben kann. Dies kann auch geändert werden, indem Sie in den Folienmaster gehen, die Folienvorlage der obersten Ebene auswählen, das Textfenster mit den Folienaufzählungszeichen auswählen, im Startmenü das Dropdown-Menü für Aufzählungszeichen und dann Aufzählungszeichen und Nummerierung auswählen und die Aufzählungszeichenfarbeinstellungen finden.

Antwort3

Seit v.2013 können Sie die Farbpalette ändern, aber Sie können die Standardfarben und -größen der Schriftarten sowie die im Smartart verwendeten Formen nicht ändern

verwandte Informationen