удаление полос прокрутки и границ из объекта веб-браузера - PullRequest
Новая
       4

удаление полос прокрутки и границ из объекта веб-браузера

1 голос
/ 05 января 2012

У меня есть powerpoint, который использует объект веб-браузера.Проблема в том, что полосы прокрутки на объекте веб-браузера всегда есть, независимо от того, нужны они или нет.Есть ли способ убрать полосы прокрутки?

Я попытался добавить: 

WebBrowser.Document.body.Scroll = "no"

, но это заставляет объект перестать работать все вместе.

Кроме того, объект имеет тонкий светлый цвет (думаю, этобелая но сложно сказать) границы вокруг нее.Так как большая часть моей презентации чёрная, это не очень хорошо сочетается, хотя я установил цвет фона html, отображаемого как чёрный.Есть ли способ избавиться от границы?

, если они не могут быть сделаны с помощью vba, могут ли они быть сделаны вообще?

Ответы [ 3 ]

3 голосов
/ 05 января 2012

Мое понимание - нет, это невозможно.Мне не нравится полоса прокрутки, но она является частью IE, и я не вижу способа удалить ее без полного отключения функций, как вы уже видели.

1 голос
/ 24 ноября 2014

Джимми Пена,

Я сделал это.После некоторых тестов я обнаружил, что если я установлю изображение в webbrowser и попытаюсь установить другие свойства Document.Body в том же исполнении «f5», оно не будет работать.

Если вы попытаетесь использовать «f8»,это работает, по иронии судьбы.

Я думаю, это потому, что компонент веб-браузера не может установить некоторые свойства после загрузки объекта.

Ооооо, я попытался создать HTML-файл, в котором мой объект (в моемcase, 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

Я думаю, это должно помочь вам, Джимми Пена и неуверенно.

SeeYa!

0 голосов
/ 29 июля 2015

Ваша идея работает отлично, за исключением части VBA.

Итак, я создал файл html, как вы, назначив свойства и вызвав изображение gif.

Затем в VBA я использовал следующий код (на листе, где находится веб-браузер): 

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