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

djl520 2006-04-19 05:18:39
像这样子输出:








...全文
301 7 点赞 打赏 收藏 举报
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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 属性只是转换字体的角度.
  • 打赏
  • 举报
回复
相关推荐
发帖
C++ Builder
加入

1.3w+

社区成员

C++ Builder相关内容讨论区
申请成为版主
帖子事件
创建了帖子
2006-04-19 05:18
社区公告
暂无公告