xiaowei字体(小薇字体图片)

Excel图表中标题的字体大小如何在VBA中修改

我录制出来的有（选中图表中的标题，通过工具栏上的字号直接更改的）。

ActiveSheet.ChartObjects(“Chart 2”).Activate

ActiveChart.ChartTitle.Select

Selection.Characters.Text = “Test for LifeDebug”

Selection.AutoScaleFont = False

With Selection.Characters(Start:=1, Length:=18).Font

.Name = “宋体”

.FontStyle = “Regular”

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End Withsubs()

with[a6:u2000]

.horizontalalignment=xlcenter

.verticalalignment=xlcenter

with.font

.name=”宋体”

.size=11

.bold=true

.colorindex=8

endwith

.formatconditions.delete

.formatconditions.addtype:=xlcellvalue,operator:=xlequal,formula1:=”=””√”””

.formatconditions(.foppt模板下载的网站rmatconditions.count).font.colorindex=5

.formatconditions.addtype:=xlcellvalue,operator:=xlequal,formula1:=”=””x”””

.formatconditions(.formatconditions.count).font.colorindex=3

endwith

endsub可以的，选中图表的标题，单击格式菜单，选中图表标题项，即可做相应的字体字号修改。我录制的代码如下：希望能有帮助

Sub ww()

‘ ww Macro

‘ 宏由 xiaowei 录制，时间: 2009-10-6

ActiveChart.ChartTitle.Select

Selection.Top = 8

Selection.AutoScaleFont = True

With Selection.Font

.Name = “宋体”

.FontStyle = “加粗”

.Size = 18

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleSingle

.ColorIndex = 43

.Background = xlAutomatic

End With

End Sub

小薇用韩国字是什么样子的

小薇直接译就是소미（somi）

但如果是昵称的话韩国人一般不叫对方小什么，可以直接叫她미야（miya）