求问斑竹：如何对图表标题中的字串进行查找替换？

FENGJUN

有多个图表，图表的标题字串长度不等；要替换的文字在标题中位置也不定。

如需要对附件中图表标题中的“分析”进行替换，替换为“统计图”。

如何实现呢？

9ljqDBXf.rar (21.31 KB, 下载次数: 34)

2005-2-18 14:51 上传

点击文件名下载附件
求问斑竹：如何对图表标题中的字串进行查找替换？

FENGJUN

Application.WorksheetFunction.Substitute("原图表标题", "分析", "统计图")？

SUBSTITUTE

请参阅

在文本字符串中用 new_text 替代 old_text。如果需要在某一文本字符串中替换指定的文本，请使用函数 SUBSTITUTE；如果需要在某一文本字符串中替换指定位置处的任意文本，请使用函数 REPLACE。

语法

SUBSTITUTE(text,old_text,new_text,instance_num)

Text 为需要替换其中字符的文本，或对含有文本的单元格的引用。

Old_text 为需要替换的旧文本。

New_text 用于替换 old_text 的文本。

Instance_num 为一数值，用来指定以 new_text 替换第几次出现的 old_text。如果指定了 instance_num，则只有满足要求的 old_text 被替换；否则将用 new_text 替换 Text 中出现的所有 old_text。

FENGJUN

to Chenjun:

真好，再谢解答！

chenjun

Sub ReplaceChartTitles() Dim Sh As Worksheet, CrtTit As String, Crt As ChartObject Set Sh = Worksheets("sheet4") For Each Crt In Sh.ChartObjects CrtTit = Crt.Chart.ChartTitle.Text CrtTit = Replace(CrtTit, "分析", "统计图") Crt.Chart.ChartTitle.Characters.Text = CrtTit Next Crt End Sub 可以直接用VBA的函数Replace