¿Cómo cambiar el estilo de color predeterminado para SmartArt en Office?

Question

Actualmente estoy creando una nueva plantilla de PowerPoint para nuestra pequeña empresa. Como parte de esto, queremos ahorrar tiempo a las personas al seleccionar automáticamente los colores correctos cuando crean gráficos usando SmartArt.

Cambiar a un color diferente es realmente sencillo, aquí se da un ejemplo:http://pcunleashed.com/powerpoint/how-to-re-color-your-smartart-graphics-in-powerpoint/

Mi pregunta es: ¿Es posible cambiar cuál de estos esquemas de color se utiliza de forma predeterminada al crear nuevos gráficos? Mi color de acento principal es el azul, por lo que el gráfico estándar ha llenado formas azules con texto blanco. Me gustaría que el estándar fuera solo un contorno azul con fondo blanco y texto negro. Esta es otra de las opciones disponibles, pero no la predeterminada actual.

Esto ahorraría a nuestros muchachos una gran cantidad de tiempo en la creación de diagramas.

Answer 1

Desafortunadamente, (a partir de PowerPoint 2013) no hay forma de establecer el formato predeterminado para SmartArt o de usar el Copiador de formato para formatear todas las formas dentro de un gráfico SmartArt.

Pero, siempre que surge una pregunta como esta, las macros y complementos de VBA vienen al rescate.

La macro muy básica siguiente toma la línea y el color de relleno de la forma seleccionada o del estilo de forma predeterminado si no selecciona nada y lo aplica a cada forma dentro del gráfico SmartArt. Si no sabes cómo utilizar una macro, mira estos ejemplos:

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

Es básico porque hay literalmente cientos de propiedades que un usuario puede configurar, como degradados de relleno, imágenes, texturas, colores de línea, anchos, guiones y efectos como reflejos, brillo, etc.

Soy dueño de una empresa llamada GMARK que se especializa en el desarrollo de complementos de PowerPoint (http://i-present.co.uk) y podría crear un complemento para hacer esto si hubiera interés.

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

Answer 2

A continuación se muestra una forma mucho más sencilla de cambiar el color predeterminado utilizado con los gráficos SmartArt. Solo probé esto con PowerPoint 2010. Necesitas cambiar la paleta de colores. No estoy 100% seguro de que esto sea lo que estás buscando, pero puede ayudar a otros.

En la pestaña Diseño, seleccione el menú desplegable Colores. Seleccione Crear nuevos colores de tema y cambie el color de Acento 1 al color que desee como color SmartArt predeterminado.

Sin embargo, tenga en cuenta que esto puede afectar aspectos como los colores de las viñetas de las diapositivas. Esto también se puede cambiar ingresando al Patrón de diapositivas, seleccionando la plantilla de diapositiva de nivel superior, seleccionando la ventana de texto que contiene las viñetas de la diapositiva, en el menú Inicio, selecciona el menú desplegable de viñetas, luego Viñetas y numeración y encontrarás el color de las viñetas. ajustes.

Answer 3

Desde la versión 2013, puede cambiar la paleta de colores, pero no puede cambiar los colores y tamaños predeterminados de las fuentes ni las formas utilizadas en el arte inteligente.