以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  word报表生成照片，可以变为横向吗  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69777)
--  作者：zhuzhi
--  发布时间：2015/6/10 20:34:00
--  word报表生成照片，可以变为横向吗
照片一般都是竖向的，我们可否将word报表中的标签倒下来，让其自动生成横向的照片呢？求高手帮助！十分感谢！
--  作者：大红袍
--  发布时间：2015/6/10 20:40:00
--  

不可以，你可以先把图片旋转一下，在导出到word报表里面去。

 

 

参考代码

 

Dim bmp As New bitmap("d:\\test.jpg")
bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
bmp.save("d:\\test2.jpg")

 

------------------

顺时针旋转90度     RotateFlipType.Rotate90FlipNone
逆时针旋转90度     RotateFlipType.Rotate270FlipNone
水平翻转    RotateFlipType.Rotate180FlipY
垂直翻转    RotateFlipType.Rotate180FlipX
--  作者：zhuzhi
--  发布时间：2015/6/10 20:49:00
--  
谢谢！可以批量倒一整列照片吗？不知道代码如何写呢？
--  作者：大红袍
--  发布时间：2015/6/10 21:00:00
--  

 For Each dr As DataRow In DataTables("表a").DataRows
    Dim file As String = ProjectPath & "Attachments/" & dr("第一列")
    Dim bmp As New bitmap(file)
    bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
    bmp.save(file)
    bmp.dispose
Next

[此贴子已经被作者于2015/6/10 21:01:38编辑过]
--  作者：zhuzhi
--  发布时间：2015/6/10 21:08:00
--  
十分感谢您！照片可以设置在其他文件夹里吗？还是必须放在attachments下呢？
--  作者：大红袍
--  发布时间：2015/6/10 21:13:00
--  

可以设置任意一个路径都行的。

 

Dim file As String = "你的路径/" & dr("第一列")

 
--  作者：zhuzhi
--  发布时间：2015/6/10 21:14:00
--  
非常感谢您呀！