在 Web 浏览器控件中显示大图像 - MS Access答案

【问题标题】：Display a large image in the web browser control - MS Access在 Web 浏览器控件中显示大图像 - MS Access
【发布时间】：2015-12-12 17:37:50
【问题描述】：

截图：

当尝试在 MS Access 2010 的 IE Web 浏览器控件中显示大图像（大于 5000x5000）时，图像不会显示。

我正在使用 VBA 来导航并将内容写入对象的文档。我已经测试了这两种方法，并且得到了相同的结果。较小的图像可以毫无问题地呈现。

LE 代码如下：

Private Sub DisplayImg(bWrite As Boolean)

Dim sHTMLFilePath As String
Dim sImageFilePath As String
Dim sContent As String

sImageFilePath = "d:\img.png"
sHTMLFilePath = "d:\html.html"

sContent = "<html>"
sContent = sContent & vbCrLf & "<head>"
sContent = sContent & vbCrLf & "</head>"
sContent = sContent & vbCrLf & "<style>"
sContent = sContent & vbCrLf & GetCSS ' gets css from db
sContent = sContent & vbCrLf & "</style>"
sContent = sContent & vbCrLf & "<body>"
sContent = sContent & vbCrLf & "<img class=" & Chr(34) & "img_wb" & Chr(34) & " src=" & Chr(34) & sImageFilePath & Chr(34) & ">"
sContent = sContent & vbCrLf & "</body>"
sContent = sContent & vbCrLf & "</html>"

If bWrite = False Then ' navigate
    Call CreateNewTextFile(sHTMLFilePath, sContent) ' creates the html file
    Me.wb.navigate sHTMLFilePath
Else ' write
    Me.wb.Document.Clear
    Me.wb.Document.write sContent
    Me.wb.Document.Close
End If

End Sub

【问题讨论】：

能否提供测试代码？
我将代码添加到我最初的问题中。谢谢。

标签： image vba browser web resolution

【解决方案1】：

你确定可以吗？否则，您可以在此处重新像素化图像：http://www.garyshood.com/imageconvert/

我在 GoDaddy 帮助中找到了这个： "注意：图像需要格式化为 .jpg、.jpeg、.gif 或 .png 文件。图像上传限制为每个文件 30MB。虽然可以上传最大 5000 x 5000 像素的图像，但不会显示图像大于 1920 x 1080 像素。”

【讨论】：

我在 Visual Studio 2012 中测试了同样的东西，它可以工作，但我猜在 Access 中这是不可能的，因为控件的限制。那有意义吗？重新像素化图像不是解决方案。文件大小不是问题 - 我可以以 4000x4000 显示 30mb 大小的图像。
重新像素化不是解决方案吗？为什么？
我要展示的图片实际上是一张大型技术图纸，它进入了必须按比例打印的最终报告。重新像素化会影响绘图中的细节。该报告也是 HTML 格式并且非常大 - （A0 或更大的大小）并且也显示在应用程序中，但存在相同的问题（绘图未显示在报告正文中）。目前，我决定使用默认浏览器在外部打开报表 - 这是目前唯一可行的方式。