个人中心
文章发布
退出
作者热门文章
- Java 双重比较
- java - 比较器与 Apache BeanComparator
- Objective-C 完成 block 导致额外的方法调用？
- database - RESTful URI 是否应该公开数据库主键？
24
4
我有一个名为 WebBrowser1 的 WebBrowser 控件。
我使用它通过使用此代码的 URL 显示图像。
WebBrowser1.Navigate ("https://cdn2.iconfinder.com/data/icons/modern-latin-alphabet-lowercase-and-uppercase-lett/154/alphabet-uppercase-letter-z-512.png")
效果很好，但图像比 WebBrowser 控件大。
所以我需要调整图像大小以适合 WebBrowser 控件大小。
最佳答案
尝试使用此代码来适应图像宽度:
Sub Test()
UserForm1.Show
UserForm1.WebBrowser1.Navigate "about:blank"
UserForm1.WebBrowser1.Document.Write "<img style=""width:100%;"" src=""https://cdn2.iconfinder.com/data/icons/modern-latin-alphabet-lowercase-and-uppercase-lett/154/alphabet-uppercase-letter-z-512.png"">"
End Sub
现在你可能想要调整图像的高度和宽度，毕竟所有现代浏览器都支持 CSS object-fit，幸运的是除了 IE ;) 所以，让图像适应视口(viewport)保持宽高比有必要找到最小的高度和宽度比，并通过将其设置为 100% 来适应该尺寸的图像。它可以通过嵌入文档的 CSS 或 javascript 来完成，但对于 VBA 目的，下面的代码工作得很好。还添加了 WebBrowser 控件初始化和单独的过程，用于显示定义的图像以增强鲁棒性。
假设有 UserForm1，ShowModal 设置为 False，带有 WebBrowser 控件。将以下代码放在 UserForm 模块中:
Private Sub UserForm_Initialize()
With Me.WebBrowser1
.Navigate "about:blank"
.Document.Write "<body style='background-color: buttonface; overflow: hidden;'></body>"
End With
End Sub
Public Sub displayImage(src)
With Me.WebBrowser1
.Document.Close
.Document.Write "<body id='body' style='background-color: buttonface; overflow: hidden; margin: 0; text-align: center;'><img id='img' src='" & src & "'></body>"
Dim img
Set img = .Document.getElementById("img")
Dim body
Set body = .Document.getElementById("body")
If body.ClientHeight / img.ClientHeight < body.ClientWidth / img.ClientWidth Then
img.Style.Height = "100%"
Else
img.Style.Width = "100%"
End If
End With
End Sub
将Test1放在标准模块中调用显示图片:
Sub Test1()
UserForm1.Show
UserForm1.displayImage "/image/B8imb.gif"
End Sub
您还可以将 base64 编码的图像嵌入到代码中(使用任何在线 Base64 图像编码器)，参见 Test2 示例:
Sub Test2()
UserForm1.Show
UserForm1.displayImage _
"data:image/png;base64," & _
"iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAACXBIWXMAAA7DAAAOwwHHb6hkAAADoklE" & _
"QVR4nO3dwW2DQBBAUYjSaWSKikytTgMcgmS8K/57BaA5fc2BgXV5PF8LkPQ1egBgHAGAMAGAMAGAMAGA" & _
"MAGAMAGAMAGAMAGAMAGAMAGAMAGAMAGAMAGAMAGAMAGAMAGAMAGAMAGAMAGAMAGAMAGAMAGAMAGAMAGA" & _
"MAGAMAGAMAGAMAGAMAGAMAGAMAGAMAGAMAGAMAGAMAGAMAGAsO/RA/AZr9+f0SPcyrrto0d4CxsAhAkA" & _
"hAkAhAkAhAkAhAkAhAkAhAkAhAkAhAkAhAkAhLkF4NDV77qfvU2YbZ67sAFAmABAmABAmABAmABAmABA" & _
"mABAmABAmABAmABAmABAmABAmABAmABAmABAmABAmABAmABAmABAmABAmABAmABAmABAmP8CcGi27+TP" & _
"Ns9d2AAgTAAgTAAgTAAgTAAgTAAgTAAgTAAgTAAgTAAgTAAgzC1AxLrto0f4KLcD/2MDgDABgDABgDAB" & _
"gDABgDABgDABgDABgDABgDABgDABgLDb3AJ49/vearcMn2IDgDABgDABgDABgDABgDABgDABgDABgDAB" & _
"gDABgDABgLDb3AKcdfW75WdvE8zDCDYACBMACBMACBMACBMACBMACBMACBMACBMACBMACBMACBMACBMA" & _
"CBMACBMACBMACBMACBMACBMACBMACBMACBMACBMACMv+F2C279KbhxFsABAmABAmABAmABAmABAmABAm" & _
"ABAmABAmABAmABAmABCWvQVYt/3S5599l36meWaahWvZACBMACBMACBMACBMACBMACBMACBMACBMACBM" & _
"ACBMACBMACBMACBMACBMACBMACBMACBMACBMACBMACBMACBMACBMACAs+1+A2b5NP9M8M83CtWwAECYA" & _
"ECYAECYAECYAECYAECYAECYAECYAECYAECYAEJa9BZjNuu2XPt/7/RyxAUCYAECYAECYAECYAECYAECY" & _
"AECYAECYAECYAECYAECYAECYAECYAECYAECYAECYAECYAECYAECYAECYAECYAECYAECYAECYAECYAECY" & _
"AECYAECYAECYAECYAECYAECYAECYAECYAEDYujyer9FDAGPYACBMACBMACBMACBMACBMACBMACBMACBM" & _
"ACBMACBMACBMACBMACBMACBMACBMACBMACBMACBMACBMACBMACBMACBMACBMACBMACBMACBMACBMACBM" & _
"ACBMACBMACBMACBMACBMACBMACBMACBMACDsD0NPOfMjSKzzAAAAAElFTkSuQmCC"
End Sub
我发现删除 WebBrowser 控件凹陷边框的最简单方法是...通过将它们移到 UserForm 边框之外(通过设置 Top 和 Left 为负数，以及 Height 和 Width 大于 UserForm)或做同样的事情来简单地“裁剪”在 Frame 控件中，SpecialEffect 设置为 0 且 Caption 为空。
关于html - 如何在 excel WebBrowser 控件上调整图像大小，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/37195962/
24
4
0
我想实现自定义搜索，但遇到了一个麻烦。我需要将 UIButton、SearchBar 组合在一个控件中，以便我可以通过指针引用它。然后我将向该组合控件动态添加更多 UIbutton。最重要的是，我想将
它没有在我的方法中执行 if block 中的语句 母版页:- 页面加载事件:- Control c = new Control(); DoSomething(c); 我的方法:- protecte
ComboBox 控件有一个 setConverter 方法，请参阅 JavaFX ComboBox - Display text but return ID on selection举个例子。我正在
我没有找到任何包含用于标记化(标记)文本输入的控件的 wpf 库。也许我找不到库，因为我错误地调用了这个组件。怎么叫或者哪里有这样的库？ 最佳答案 DevExpress WPF 库包含多个数据编辑控件
是否有 Silverlight 控件允许您输入文本并将其突出显示为代码？ 例如: foreach (client in Clients){ client.Save();} would become
我有以下用户控件 a) Panel.ZIndex="99999999" 是否是将此控件设置为该控件中 TopMost 的正
是否可以在 Windows 窗体中使用 C# 在窗体加载时隐藏所有特定控件，例如标签或按钮，然后选择显示我不想显示的那些？ 我有一个包含很多按钮和标签的程序，但我只想在加载时显示一两个，我觉得对每个标
这个问题已经有答案了: 已关闭11 年前。 Possible Duplicate: Duplicating components at Run-Time 我有一个TMyControl ( Contro
我正在尝试在 Delphi 中编写一个 dll 库，其中包含一个创建 TFrame 后代实例并返回它的函数。但是当我在应用程序中导入这个函数时，每次调用它时，我都会得到一个异常，例如“'xxx'控件没
是否有 Win32 API 调用来确定哪些窗口和/或控件在特定坐标和/或鼠标下可见？ 最佳答案 您可以使用GetWindowFromPoint 。它将返回窗口句柄，以便您可以使用 GetClassNa
我需要在编辑控件中输入以下公式: 公式是在 MS Word 中制作的。尝试将其复制/粘贴到编辑控件(单行或多行)后，我得到 M 0.33 Q10T9.1-9.7。 当我输入这个时，我正在研究 Rich
我只是想成功地将它添加到我的窗口中，但这却出奇地困难。 我已经尝试过 #include "windef.h" #include "winbase.h" #include "initguid.h" #i
我希望能够使用 google maps api v3 拥有自己的“街景”按钮。单击按钮时，我希望它根据我的标记经纬度加载街景。然后我希望按钮更改为“返回 map ”，然后再次加载默认 map View
我目前正在用 PHP 开发(另一个)开源 CMS，我想使用 javascript 控件，尤其是管理面板。问题是，是否有任何具有 PHP 接口(interface)的开源、可自由分发的控件(用于创建 j
我为其编写软件的产品之一是会计类应用程序。它用 C++ 编写，使用 C++ Builder 和 VCL 控件，连接到运行在 Linux 上的 PostgreSQL 数据库。 PostgreSQL 数据
我使用 Key Listener 来读取用户的输入，但我遇到了问题。首先，我读到 JTextField“请输入您的姓名”。如果用户输入一个名字，例如 John，它将更改为 John。但是，如果用户输入
我正在尝试对齐数据表列中的复选框(h=center，v=middle) ... 但复选框仍然显示在错误的位置(见附图)
我有一个包含统计信息的 JSON 数据树: { prefix: "a", count: 20, children: [ { prefix: "a:b", c
我在 Photoshop 中设计了一个模型，我打算将它应用到我的产品目录的 ListView 控件中，但它似乎没有正确显示(未对齐？)，我希望这里的人可以像我一样指出我的错误试图弄清楚无济于事。 预期
您是使用 ASP.NET 控件还是仅使用带有 CSS 的 HTML？ 我在 TextBox 和 DropDownList 的宽度方面遇到了一些问题。在不同的浏览器中，宽度会有所不同，控件的大小也不会相
我是一名优秀的程序员,十分优秀！