在CorelDRAW中，让文字围绕圆是一种非常常见的排版风格，它让设计更加美观和吸引人。但是，许多人不知道怎么实现它。在这篇文章中，我们将详细讨论如何在cdr中让文字围绕圆。
一、使用文本复制和分布工具
打开编辑器，输入需要围绕圆的文字。然后在“对象”菜单中选择“文本”和“文本复制”。打开弹出窗口，选择“跟随路径”选项，并选择圆形-即文字要围绕的形状。点击“复制”按钮。现在选择新创建的文本，右键单击，选择“属性”和“文本框”选项。在“文本块”选项卡中，选择“文字跟随”和“分布”选项。在“跟随”下，选择“路径”和“旋转”选项。选择“分布”选项卡，并为文本选择合适的分布方式。
二、使用PowerClip工具
在“工具箱”中选择“PowerClip”。点击PowerClip工具，用鼠标拖动圆形图形，创建PowerClip容器。将需要围绕圆形图形的文本拖到创建的容器内。调整文本位置和大小。右键单击PowerClip容器，选择“编辑内容”。在“编辑模式”下，选择“乘法”混合模式，并选择所需的颜色。点击“确定”。
三、使用vba脚本实现
启用VBA编辑器。在新窗口中输入以下vba脚本代码：
Sub Text_On_Curve()
Dim Curve As Shape, Text As Shape
Dim sText As String, sChar As String
Dim sFont As String, sSize As String
Dim sBold As String, sItalic As String
Dim sUnderline As String, sColor As String
Set Curve = ActiveShape
If Not Curve Is Nothing Then
If Curve.Type = cdrCurveShape Then
sText = InputBox("输入需围绕圆的文字：")
If Len(sText) > 0 Then
sFont = InputBox("输入字体名称：")
sSize = InputBox("输入字号：")
sBold = InputBox("是否加粗(Y/N)：")
sItalic = InputBox("是否斜体(Y/N)：")
sUnderline = InputBox("是否下划线(Y/N)：")
sColor = InputBox("输入字体颜色：")
If Len(sFont) > 0 And Len(sSize) > 0 Then
Set Text = ActiveLayer.CreateArtisticText(0, 0, sText, cdrArtistcTextFitShapeToPath)
With Text
.Font.Name = sFont
.Font.Size = sSize
.Font.Bold = (sBold = "Y" Or sBold = "y")
.Font.Italic = (sItalic = "Y" Or sItalic = "y")
.Font.Underline = (sUnderline = "Y" Or sUnderline = "y")
.Fill.ApplyUniformFill CDbl(sColor)
.Fill.Pen.CreateHairline
.CreatePowerClip Curve, False
End With
End If
End If
End If
End If
End Sub
此VBA脚本将提示用户输入需要围绕的文本、字体名称、字号、粗体、斜体、下划线和颜色。运行VBA后，单击圆形图形即可将文本围绕圆形。
综上，cdr中让文字围绕圆有多种方法。使用文本复制和分布工具、PowerClip工具和vba脚本都是完美的实现方法。在进行平面设计时，可以根据自己的具体需求选择最适合自己的方法。
