☰

Como alterar o estilo de cor padrão do SmartArt no Office?

tag-icon • tag-icon microsoft-office colors microsoft-powerpoint
Como alterar o estilo de cor padrão do SmartArt no Office?

Atualmente estou construindo um novo modelo de PowerPoint para nossa pequena empresa. Como parte disso, queremos economizar o tempo das pessoas, selecionando automaticamente as cores corretas quando elas criam gráficos usando SmartArt.

Mudar para uma cor diferente é muito simples, um exemplo é dado aqui:http://pcunleashed.com/powerpoint/how-to-re-color-your-smartart-graphics-in-powerpoint/

Minha dúvida é: É possível alterar qual desses esquemas de cores é usado como padrão na criação de novos gráficos. Minha cor de destaque principal é o azul, então o gráfico padrão preencheu formas azuis com texto branco. Gostaria que o padrão fosse apenas um contorno azul com fundo branco e texto preto. Esta é outra das opções disponíveis, mas não o padrão atual.

Isso economizaria muito tempo para nossos funcionários na criação de diagramas.

Responder1

Infelizmente, não há (a partir do PowerPoint 2013) nenhuma maneira de definir o formato padrão para SmartArt ou de usar o Pincel de Formatação para formatar todas as formas em um gráfico SmartArt.

Mas, sempre que surge uma pergunta como essa, macros e suplementos VBA vêm em socorro.

A macro básica abaixo pega a linha e a cor de preenchimento da forma selecionada ou do estilo de forma padrão, se você não selecionar nada, e aplica-a a cada forma no gráfico SmartArt. Se você não sabe como usar uma macro, dê uma olhada nestes exemplos:

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

É básico porque existem literalmente centenas de propriedades que um usuário pode definir, como gradientes de preenchimento, imagens, texturas, cores de linhas, larguras, traços e efeitos como reflexo, brilho, etc.

Sou proprietário de uma empresa chamada GMARK, especializada no desenvolvimento de suplementos para PowerPoint (http://i-present.co.uk) e poderia criar um suplemento para fazer isso se houvesse interesse.

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

Responder2

Esta é uma maneira muito mais fácil de alterar a cor padrão usada com gráficos SmartArt. Testei isso apenas com o PowerPoint 2010. Você precisa alterar a paleta de cores. Não tenho 100% de certeza de que é isso que você está procurando, mas pode ajudar outras pessoas.

Na guia Design, selecione o menu suspenso Cores. Selecione Criar novas cores de tema e altere a cor de destaque 1 para a cor desejada como SmartArt padrão.

Observe, no entanto, que isso pode afetar coisas como as cores dos marcadores em seus slides. Isso também pode ser alterado acessando o Slide Master, selecione o modelo de slide de nível superior, selecione a janela de texto que contém os marcadores do slide, no menu inicial, selecione o marcador suspenso, depois Marcadores e numeração e você encontrará a cor do marcador configurações.

Responder3

Desde v.2013 você pode alterar a paleta de cores, mas não pode alterar as cores e tamanhos padrão das fontes, bem como as formas usadas no smartart

informação relacionada