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

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








...全文
343 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用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 属性只是转换字体的角度.

13,871

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder相关内容讨论区
社区管理员
  • 基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧