[求助]提取word表格中的照片后，如何设置保存的照片尺寸 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Word表格中的照片提取保存后长宽比变化，如何保持为照片原来的尺寸

app.ActiveWindow.Selection.WholeStory
        For Each shape As object In app.ActiveWindow.Selection.InlineShapes
            If shape.Type = MSWord.WdInlineShapeType.wdInlineShapePicture
                Dim img As Byte() = shape.Range.EnhMetaFileBits
                Dim bmp As new Bitmap(new IO.MemoryStream(img))
                bmp.Save(ProjectPath & "Attachments/" & fdr("姓名") & ".jpg")
            End If
        Next

fdr("照片") = fdr("姓名") & ".jpg"

提取之后照片尺寸变成577*194，并且横向不足的部分自动用白色背景补足

[此贴子已经被作者于2020/10/30 9:50:48编辑过]

提取之后照片尺寸变成577*194，并且横向不足的部分自动用白色背景补足

原来的照片不是这样

word 文档和生成的图片做为附件上传了

代码是在命令窗口运行的

word文档范例和代码生成的图片

下载信息 [文件大小：下载次数： ]
点击浏览该文件:a.zip

换了一台机器就没有这个问题

改一下

Dim app As New MSWord.Application
try
    Dim fileName = "d:\a.doc"
    Dim doc = app.Documents.Open(fileName)

    For Each shape As object In doc.InlineShapes
        If shape.Type = MSWord.WdInlineShapeType.wdInlineShapePicture

            Dim img As Byte() = shape.Range.EnhMetaFileBits
            Dim bmp As new Bitmap(new IO.MemoryStream(img))
            bmp.Save("d:\aaa.jpg")
        End If
    Next
    For Each shape As object In doc.Shapes

        msgbox(shape.Type)
        If shape.Type = 13
            shape = shape.ConvertToInlineShape
            Dim img As Byte() = shape.Range.EnhMetaFileBits
            Dim bmp As new Bitmap(new IO.MemoryStream(img))
            bmp.Save("d:\aaa.jpg")
        End If
    Next
    doc.saved = true
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

[此贴子已经被作者于2020/10/30 15:12:41编辑过]

主题：[求助]提取word表格中的照片后，如何设置保存的照片尺寸