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

djl520 2006-04-19 05:18:39

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

...全文

346 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

djl520 2006-04-21

打赏
举报

多谢,城市陌生人.

djl520 2006-04-20

打赏
举报

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

Swosna 2006-04-20

打赏
举报

我也想知道

lurel 2006-04-20

打赏
举报

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

djl520 2006-04-19

打赏
举报

我把垂直输出转换成横向输出的宏是这样子的:
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);
只能够转换字体的角度,而不能垂直输出.

djl520 2006-04-19

打赏
举报

请大家帮帮助...

djl520 2006-04-19

打赏
举报

我在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 属性只是转换字体的角度.