'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.DrawingImports GrapeCity.Documents.Word
'' This example shows how to add a 3D effect with direct colors to a shape.Public Class Shape3DDirectColorEffect    Function CreateDocx() As GcWordDocument        Dim doc = New GcWordDocument()
        Dim p As Paragraph = doc.Body.Paragraphs.Add()        Dim run As Run = p.GetRange().Runs.Add()        Dim shape As Shape = run.GetRange().Shapes.Add()        shape.Fill.Type = FillType.Solid        shape.Fill.SolidFill.ThemeColor = ThemeColorId.Accent1
        Dim shapeFormat = shape.Effects.ThreeDFormat
        Dim schemeEffects = doc.Theme.FormatScheme.Effects.Add()        Dim schemeFormat = schemeEffects.ThreeDFormat        Dim schemeScene = schemeEffects.ThreeDScene        ''TopBevel        schemeFormat.TopBevel.Type = BevelType.Angle        schemeFormat.TopBevel.Width = 18.5F        schemeFormat.TopBevel.Height = 58.5F        ''BottomBevel        schemeFormat.BottomBevel.Type = BevelType.ArtDeco        schemeFormat.BottomBevel.Width = 11.5F        schemeFormat.BottomBevel.Height = 21.5F        ''Depth        schemeFormat.Depth.Width = 33.5F        schemeFormat.Depth.Color.ThemeColor = ThemeColorId.Accent3        ''Contour        schemeFormat.Contour.Width = 43.5F        schemeFormat.Contour.Color.RGB = Color.Blue        ''Material        schemeFormat.Material = MaterialType.Metal        ''DistanceFromGround        schemeFormat.DistanceFromGround = 48.5F
        ''set scene        schemeScene.Camera.Preset = CameraPreset.OrthographicFront        schemeScene.Lighting.Direction = LightRigDirection.Top        schemeScene.Lighting.Type = LightRigType.ThreePoints
        shape.Style.Effects.ThemeEffects = schemeEffects
        '' Done:        Return doc    End FunctionEnd Class