主题：word报表生成照片，可以变为横向吗

照片一般都是竖向的，我们可否将word报表中的标签倒下来，让其自动生成横向的照片呢？求高手帮助！十分感谢！

不可以，你可以先把图片旋转一下，在导出到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

谢谢！可以批量倒一整列照片吗？不知道代码如何写呢？

 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

十分感谢您！照片可以设置在其他文件夹里吗？还是必须放在attachments下呢？

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

 

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

 

非常感谢您呀！