'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''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 FunctionEnd Class