Question

我有一个使用网络浏览器对象的powerpoint。麻烦的是Web浏览器对象上的滚动条始终存在，无论它们是否需要。有没有办法删除滚动条？

我尝试过添加：

WebBrowser.Document.body.Scroll = "no"

但是这会使对象停止工作。

此外，该物体有一个浅色（我认为它是白色但很难分辨）边缘。由于我的大多数演示文稿都是黑色的，所以虽然我将html的背景颜色设置为黑色，但这并不能很好地融合。还有办法摆脱边界吗？

如果不能用vba完成它们可以完成它们吗？

Answer 1

我的理解是不，这是不可能的。我不喜欢滚动条，但它是IE的一部分，我没有看到任何方法删除它而没有完全禁用你已经看到的功能。

Answer 2

JimmyPena，

我做到了。经过一些测试后，我发现如果我将图像设置为webbrowser并尝试在同一个“f5”执行中设置其他Document.Body属性，则它不起作用。

如果你试图使用“f8”，那就具有讽刺意味。

我认为这是因为webbrowser组件在加载对象后无法设置某些属性。

Sooooo，我试图创建一个HTML文件，其中设置了我的对象（在我的例子中是一个gif图像），并且还设置了所有属性，包括滚动删除，边距删除和边框删除。

您可以在下面看到我的代码。

HTML（test.html）：

<html>
<head>
</head>

<body style="overflow: hidden; margin: 0; border: 0;">
    <img src="Assets/loading-small.gif" />
</body>
</html>

VBA：

Sub abaSV_showLoadingIcon()
    AbaSV.WebBrowser1.Visible = True

    AbaSV.WebBrowser1.Navigate ThisWorkbook.path & "\test.html"
End Sub

我认为这应该对你有帮助，JimmyPena和不确定的人。

SeeYa！

Answer 3

除VBA部分外，你的想法很好。

所以我所做的就是像你一样创建一个html文件，分配属性并调用gif图像。

然后在VBA中，我使用了以下代码（在可以找到webborer的工作表中）：

Private Sub worksheet_activate()
WebBrowser1.Navigate "insert html file path.html"
End Sub

Answer 4

我通过在HTML文件中将<head>标签下的代码应用来解决了这个问题：

<style type="text/css">
html {
overflow:hidden;
}
</style>

Answer 5

使用 Document.Body.Scroll = "No" 禁用 Webbrowser 中的滚动条

Option  Explicit 
Private Sub
UserForm_Activate()
WebBrowser1.Navigate "C:-Download-P.gif"
End Sub

Private Sub 
WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
With WebBrowser1
. Width = 80 
. Height = 80 
. Document.Body.Scroll = "No"
End With
End Sub

从Web浏览器对象中删除滚动条和边框

5 个答案: