Как изменить цветовой стиль по умолчанию для SmartArt в Office?

к сожалению, нет (как в PowerPoint 2013) нет возможности задать формат по умолчанию для объектов SmartArt или использовать формат по образцу в формате все фигуры в рисунок SmartArt.

но, всякий раз, когда возникает такой вопрос, VBA макросы и надстройки приходят на помощь.

самый простой макрос ниже берет линию и цвет заливки либо из выбранной формы или стиля формы по умолчанию, если вы ничего не выбираете и применяет его к каждой форме в пределах Рисунок SmartArt. Если вы не знаете, как использовать макрос, посмотрите на следующие примеры:

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

Это основное, потому что есть буквально сотни свойств, которые пользователь может установить, таких как градиенты заливки, изображения, текстуры, цвета линий, ширины, тире и эффекты, такие как отражение, свечение и т. д.

У меня есть компания под названием GMARK, которая специализируется на разработке надстроек PowerPoint (http://i-present.co.uk) и может создать надстройку, чтобы сделать это, если есть интерес.

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