MS Access窗体Web Browser控件加载URL图片的自适应缩放问题问询

方案1：优先实现无尺寸感知的自适应适配（无需本地存储/提前获取图片尺寸） #

该方案绕开直接加载图片的逻辑，通过Web Browser控件渲染自定义HTML模板实现自适应，完全不需要提前获知图片尺寸，也不会产生本地存储开销。

• 核心逻辑：
  动态拼接一段内置CSS的极简HTML代码，将远程图片URL嵌入img标签的src属性，通过CSS规则强制图片自适应控件窗口大小，所有适配逻辑由浏览器内核自动处理。
• 可直接复用的VBA代码：

Dim htmlTemplate As String
' 构造自适应HTML模板，替换转义图片路径中的双引号避免语法错误
htmlTemplate = "<!DOCTYPE html><html><head><style>" & _
               "*{margin:0;padding:0;border:0;overflow:hidden;}" & _
               "img{max-width:100%;max-height:100vh;object-fit:contain;}" & _
               "</style></head><body>" & _
               "<img src=""" & Replace(strImagePath, """", """""") & """ alt="""">" & _
               "</body></html>"

' 先初始化空白文档
WebBrowser1.Navigate "about:blank"
Do While WebBrowser1.Busy Or WebBrowser1.ReadyState <> 4
    DoEvents
Loop

' 写入自定义HTML完成渲染
WebBrowser1.Document.Write htmlTemplate
WebBrowser1.Document.Close

• 优势：
  • 无额外存储开销，图片直接从远程URL加载，不会写入本地磁盘
  • 遍历记录时仅需替换img标签的src属性即可完成刷新，延迟极低
  • 自动保持图片原始宽高比，不会出现拉伸变形

方案2：无需本地存储获取远程图片尺寸的实现路径 #

如果确实需要先获取图片尺寸再执行缩放操作，可通过DOM内存加载的方式读取原始尺寸，不需要本地保存图片：

• 操作步骤：
  1. 在Web Browser控件的空白文档中创建一个隐藏的img元素，将src设置为目标图片URL
  2. 监听img的onload事件，触发后直接读取img的naturalWidth和naturalHeight属性，即可获取图片原始宽高
  3. 根据控件尺寸和图片原始尺寸计算缩放系数，再调用OLECMDID_OPTICAL_ZOOM执行缩放即可
• 注意：该方案需要等待图片加载完成才能拿到尺寸，额外产生一次加载等待开销，优先推荐使用方案1。

内容的提问来源于stack exchange，提问作者David L