图表中的字体问题

柠檬璐水 · 发表于 2013-8-8 16:50

我想把图表中的汉字变成楷体，英文和数字变成Arial,请问这个宏应该怎么写呢？谢谢啦~跪求大牛！

柠檬璐水 · 发表于 2013-8-9 11:04

有大牛现身吗？跪求呀！！！

柠檬璐水 · 发表于 2013-8-13 17:25

柠檬璐水发表于 2013-8-9 11:04
有大牛现身吗？跪求呀！！！

跪求大牛帮助呀！！！

hoogle · 发表于 2013-8-13 18:02

With ActiveSheet.Shapes("图表 2").TextFrame2.TextRange.font
.NameComplexScript = "Arial Unicode MS"
.NameFarEast = "Arial Unicode MS"
.Name = "Arial Unicode MS"
End With

复制代码

柠檬璐水 · 发表于 2013-8-13 19:47

hoogle 发表于 2013-8-13 18:02

谢谢大侠，但是我试了运行不了呀~？我想要图表中的汉字变成楷体，英文和数字变成Arial的这样子的效果~~

hoogle · 发表于 2013-8-13 19:52

With ActiveSheet.Shapes("图表 2").TextFrame2.TextRange.font
      .BaselineOffset = 0
      .NameFarEast = "楷体_GB2312"
      .Name = "Arial Unicode MS"
End With

柠檬璐水 · 发表于 2013-8-13 19:58

hoogle 发表于 2013-8-13 19:52
With ActiveSheet.Shapes("图表 2").TextFrame2.TextRange.font
.BaselineOffset = 0
...

我运行之后显示的是无效的过程调用或参数，哪儿出问题了呢？

柠檬璐水 · 发表于 2013-8-13 21:39

柠檬璐水发表于 2013-8-13 19:58
我运行之后显示的是无效的过程调用或参数，哪儿出问题了呢？

拜托大牛了~~

柠檬璐水 · 发表于 2013-8-14 13:06

upupup~~~~~~~~~~~~~~

		自动登录	找回密码
密码			注册

图表中的字体问题

点评