☰

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

tag-icon • tag-icon microsoft-office colors microsoft-powerpoint
Как изменить цветовой стиль по умолчанию для SmartArt в Office?

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

Изменить цвет на другой очень просто, пример приведен ниже:http://pcunleashed.com/powerpoint/how-to-re-color-your-smartart-graphics-in-powerpoint/

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

Это сэкономило бы нашим ребятам огромное количество времени при создании диаграмм.

решение1

К сожалению, начиная с 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

решение2

Вот гораздо более простой способ изменить цвет по умолчанию, используемый в графиках SmartArt. Я тестировал это только с PowerPoint 2010. Вам нужно изменить цветовую палитру. Не уверен на 100%, что это то, что вы ищете, но это может помочь другим.

На вкладке «Дизайн» выберите раскрывающийся список «Цвета». Выберите «Создать новые цвета темы» и измените цвет «Акцент 1» на тот цвет, который вы хотите использовать в качестве цвета SmartArt по умолчанию.

Обратите внимание, однако, что это может повлиять на такие вещи, как цвета маркеров на ваших слайдах. Это также можно изменить, перейдя в Slide Master, выбрав шаблон слайда верхнего уровня, выбрав текстовое окно, содержащее маркеры слайда, в меню Home выберите раскрывающийся список маркеров, затем Bullets and Numbering, и вы найдете настройки цвета маркеров.

решение3

Начиная с версии 2013 вы можете изменить цветовую палитру, но вы не можете изменить цвета и размеры шрифтов по умолчанию, а также формы, используемые в SmartArt.

Связанный контент