在BCB中,怎么样把excel中的字体设置为垂直输出?

[djl520]

像这样子输出:
我
是
中
国
人

[djl520]

我在excel中实现这种效果的宏是这样子的:
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = xlVertical
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

而我在BCB中,修改Orientation 属性只是转换字体的角度.

• 打赏
• 举报

回复 赞

[djl520]

请大家帮帮助...

• 打赏
• 举报

回复 赞

[djl520]

我把垂直输出转换成横向输出的宏是这样子的:
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
从中可以看出是Orientation属性在变,也就是说修改此属性可达目的,但是我在BCB中用代码修改Orientation的值vExcelApp.OlePropertyGet("Rows",i).OlePropertySet("Orientation",-90);
只能够转换字体的角度,而不能垂直输出.

• 打赏
• 举报

回复 赞

[lurel]

vExcelApp.OlePropertyGet("Cells",1,1).OlePropertySet("Orientation",-4166);

• 打赏
• 举报

回复 赞

[Swosna]

我也想知道

• 打赏
• 举报

回复 赞

[djl520]

好像问题很难哦...........

• 打赏
• 举报

回复 赞

[djl520]

多谢,城市陌生人.

• 打赏
• 举报

回复 赞