''
'' 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 text.
Public Class Text3DPresetEffect
    Function CreateDocx() As GcWordDocument
        Dim doc = New GcWordDocument()

        Dim paragraph As Paragraph = doc.Body.Paragraphs.Add()
        Dim run As Run = paragraph.GetRange().Runs.Add("Text effects Preset 5")
        run.Font.Size = 72F

        '' apply preset text effects
        run.Font.ApplyEffectsPreset(FontEffectsPreset.Preset5)

        '' Done:
        Return doc
    End Function
End Class