''
'' This code is part of Document Solutions for Word demos.
'' Copyright (c) MESCIUS inc. All rights reserved.
''
Imports System.Drawing
Imports GrapeCity.Documents.Word

'' This example shows how to add a preset 3D effect to a shape.
Public Class Shape3DPresetEffect
    Function CreateDocx() As GcWordDocument
        Dim doc = New GcWordDocument()

        Dim paragraph As Paragraph = doc.Body.Paragraphs.Add()
        Dim run As Run = paragraph.GetRange().Runs.Add()
        Dim shape As Shape = run.GetRange().Shapes.Add(200, 200, GeometryType.Rectangle)
        shape.Fill.Type = FillType.Solid
        shape.Fill.SolidFill.ThemeColor = ThemeColorId.Accent1

        '' apply preset shape effects
        shape.ApplyEffectsPreset(ShapeEffectsPreset.Preset10)

        '' Done:
        Return doc
    End Function
End Class