excel文字画圈怎么做？如何设置文字周围圈？

作者：佚名|分类：EXCEL|浏览：56|发布时间：2025-03-16 18:26:33

Excel文字画圈怎么做？如何设置文字周围圈？

在Excel中，有时候我们需要对特定的文字进行标注或者强调，这时候就可以使用文字画圈的功能。文字画圈是一种非常实用的技巧，可以帮助我们快速识别和关注文档中的重要信息。下面，我将详细介绍如何在Excel中设置文字周围的圈。

一、使用“开始”选项卡中的“字体”组

1. 打开Excel文档，选中需要画圈的文字。

2. 点击“开始”选项卡。

3. 在“字体”组中，找到“字符边框”按钮。

4. 点击该按钮，即可在选中的文字周围画上圈。

二、使用“插入”选项卡中的“形状”功能

1. 选中需要画圈的文字。

2. 点击“插入”选项卡。

3. 在“形状”组中，选择一个圆形。

4. 将圆形拖动到文字周围，调整大小，使其覆盖文字。

5. 选中圆形，点击“格式”选项卡。

6. 在“形状样式”组中，选择“形状填充”为“无填充”。

7. 在“形状轮廓”组中，选择一个合适的颜色和线型。

三、使用“条件格式”功能

1. 选中需要画圈的文字。

2. 点击“开始”选项卡。

3. 在“条件格式”组中，选择“新建规则”。

4. 在弹出的窗口中，选择“使用公式确定要设置格式的单元格”。

5. 在“格式值等于以下公式时”输入框中，输入公式：`=COUNTIF($A$1:$A$10,$A2)>0`（这里以A列为例，假设需要画圈的文字在A列，且A列中有重复的文字）。

6. 点击“格式”按钮，选择“形状填充”为“无填充”，“形状轮廓”为“实线”。

7. 点击“确定”，即可在满足条件的文字周围画上圈。

四、使用VBA宏

1. 按下“Alt + F11”键，打开VBA编辑器。

2. 在“插入”菜单中选择“模块”，在打开的模块窗口中粘贴以下代码：

```vba

Sub DrawCircleAroundText()

Dim rng As Range

Set rng = Selection

With rng.Font

.Underline = msoTrue

.UnderlineColor = wdColorAutomatic

.Strikethrough = msoFalse

.Superscript = msoFalse

.Subscript = msoFalse

.Outline = msoFalse

.Shadow = msoFalse

.Emboss = msoFalse

.Imprint = msoFalse

.Engrave = msoFalse

.SmallCaps = msoFalse

.AllCaps = msoFalse

.Hidden = msoFalse

.Small = msoFalse

.Bold = msoFalse

.Italic = msoFalse

.StrikeThrough = msoFalse

.DoubleStrikeThrough = msoFalse

.Color = wdColorAutomatic

.TintAndShade = 0

.Scale = 100

.Spacing = 0

.Position = 0

.Kerning = 0

.Formatting = msoFalse

.BaselinePosition = msoBaselinePositionAuto

.Animation = msoAnimationNone

.CharacterSpacing = wdAuto

.WordArt = msoFalse

.HangingPunctuation = msoFalse

.HiddenText = msoFalse

.UnderlineType = msoUnderlineNone

.ApplicationFontName = "Arial"

.Size = 12

.FontName = "Arial"

.FontFamily = 2

.Charset = 1

.FarEastLanguage = 0

.VerticalFont = msoFalse

.ScriptLanguage = 0

.UnderlineColorIndex = 0

.TintAndShadeTint = 0

.TintAndShadeShade = 0

.OutlineColorIndex = 0

.ShadowColorIndex = 0

.EmbossColorIndex = 0

.ImprintColorIndex = 0

.EngraveColorIndex = 0

.SmallCapsColorIndex = 0

.AllCapsColorIndex = 0

.BaselinePositionColorIndex = 0

.AnimationColorIndex = 0

.CharacterSpacingTheme = msoCharacterSpacingThemeAuto

.WordArtRendering = msoWordArtRenderingScreen

.CharacterSpacingScale = msoCharacterSpacingScale100

.AnimationAngle = msoAnimationAngleNone

.AnimationFrequency = msoAnimationFrequencyNone

.AnimationEffect = msoAnimationEffectNone

.AnimationTrigger = msoAnimationTriggerManual

End With

With rng.Interior

.Pattern = msoPatternNone

.PatternColorIndex = msoColorAutomatic

.Color = wdColorAutomatic

.TintAndShade = 0

.PatternTintAndShade = msoTintAndShadeNone

.PatternBackgroundPatternColorIndex = msoColorAutomatic

.PatternForegroundPatternColorIndex = msoColorAutomatic

End With

End Sub

```

3. 关闭VBA编辑器，回到Excel文档。

4. 选中需要画圈的文字。

5. 按下“Alt + F8”键，选择“DrawCircleAroundText”，点击“运行”。

excel文字画圈怎么做？如何设置文字周围圈？

相关内容