VBA vbNewLine,但没有额外的空间

时间:2016-05-17 10:41:16

标签: vba excel-vba excel

我正在为图表添加标题,但是当我使用vbNewLine时,我在两个字符串之间不断获得额外的空格(空格)。

myChart.ChartTitle.Text = "Distance to Default for" & vbNewLine & compName

note compName是我之前定义的另一个字符串。

6 个答案:

答案 0 :(得分:3)

很可能是文本格式问题。尝试:vbCrLfvbCrvbLf或(挖掘文档)Environment.NewLine。四个中的一个应该没问题 "铬"是"回车"而" Lf"是"换行" (这些术语来自旧打字机时代)。一些操作系统/文本格式/系统/任何使用"驱动程序字符",有些只使用其中之一 - 您看到的空白区域是不必要的" cr"或" lf"如果这是有道理的

答案 1 :(得分:2)

尝试vbCrLf:

myChart.ChartTitle.Text = "Distance to Default for" & vbCrLf & compName

编辑:尝试vbCr,因为vbCrLf看起来与vbNewline相同

myChart.ChartTitle.Text = "Distance to Default for" & vbCr & compName

答案 2 :(得分:0)

我不明白你的目标是什么,但是使用vbNewLine会插入回车符。

如果您只是想在文本和值之间插入一个空格,那么下列之一就可以了:

  • myChart.ChartTitle.Text = "Distance to Default for " & compName
  • myChart.ChartTitle.Text = "Distance to Default for" & Chr(32) & compName
  • 答案 3 :(得分:0)

    所以这是我的解决方案。使用head(OutputData) ## CountyID C_1 C_2 C_3 C_4 C_5 C_6 C_7 ## 1: 1 1 1 5 5 5 7 7 ## 2: 2 10 4 6 4 3 8 3 ## 3: 3 5 4 6 3 4 6 6 ## 4: 4 9 4 1 3 2 5 4 ## 5: 5 7 2 10 8 4 1 7 ## 6: 6 6 5 4 4 4 6 5 代替chr(10)然后执行此操作:

    vbNewLine

    它对我有用。不知道它是否适用于所有人。欢呼声。

    答案 4 :(得分:0)

    您也可以使用 vbVerticalTabChr(11)。这与键入 Word 文档时按 shift + enter 相同。

    有趣的是,在官方文档 VBA Miscellaneous constants 中,它在描述中是这样说的:

    <块引用>

    不适用于 Microsoft Windows 或 Macintosh

    我不同意。该文档对 vbFormFeed / Chr(12) 说了同样的话,但您可以使用它轻松插入分页符。

    答案 5 :(得分:0)

    有用的帖子。我有同样的问题。 "text" & vbnewline & "text" 是两个回车而不是一个... vbVerticalTab 对我来说效果很好。