Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Breite anpassen Webbrowser-Element

Breite anpassen Webbrowser-Element
KLE
Hi,
...noch eine Frage heut. Ich habe eine Userform mit einem WebBrowser-Element, welches Bilder und PDFs anzeigt, die der User zuvor in einer Liste markiert hat. Nun sind die Dokumente z.T. leider sehr unterschiedlich in derer Breite und Auflösung.
Kann man es so einstellen, dass das geladene Bild/Datei wenn es breiter ist wie das Webbrowser-Element, auf die Breite gezoomt wird ?!? Um das scrollen in der Breite unnötig zu machen und vor allem, einen schnelleren Überblick über das Dokument zu erhalten!
Kleinere Bilder brauchen da nicht angepasst werden....
Gruß und Danke für Eure Anregungen und Hilfen...
Gruß
Kay

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Breite anpassen Webbrowser-Element
05.01.2012 08:28:24
Beverly
Hi Kay,
stelle die Eigenschaft PictureSiceMode auf fmPictureSizeModeZoom. Damit werden allerdings alle Bilder an die Größe des Steuerelementes angepasst

AW: kann ich die Eigenschaft nicht finden
06.01.2012 19:45:54
KLE
Habe bei den Eigenschaften vom Element "WebBrowser" kein Feld: PictureSiceMode ?!?
Und wenn ich per Code dem Element die Eigenschaft vergeben will, erhalte ich die Fehlermeldung 438, dass die Eigenschaft von dem Objekt nicht unterstztütz wird.
Gibt es neben den "Standard-Element" in der Werkzeugleiste ein anderes WebBrowser-Element?
Gruß und Danke...
Kay
Anzeige
AW: kann ich die Eigenschaft nicht finden
06.01.2012 19:55:44
Beverly
Hi Kay,
sorry, da hatte ich deine Frage nicht richtig durchgelesen - ich bin von einem Image-Steuerelement und nicht von einem WebBrowser-Steuerelement ausgegangen.
Ich lasse die Frage offen.

Breite anpassen Webbrowser-Element
08.01.2012 12:18:30
Anton
Hallo Kay,
so?:
Code:

Private Sub CommandButton1_Click()  
  Me.WebBrowser1.Navigate "about:blank"
  Do
    DoEvents
  Loop Until Me.WebBrowser1.Document.ReadyState = "complete"    
  bild = "E:\Temp\Cats.jpg" 'anpassen
  msg = "<img src='" & bild & "' width='100%' height='100%'>"
  Me.WebBrowser1.Document.body.innerhtml = msg
End Sub  


mfg Anton
Anzeige
Nicht schlecht, aber wie kann ich die...
10.01.2012 11:10:28
KLE
Höhe des Bildes unverändert lassen?
D.h. ich möchte nicht beides (Höhe und Breite) anpassen auf das WebBrowser-Element, sondern nur die Breite. Denn sonst sind meine A4-Grafiken sehr "gestaucht" und dann kann man sie nicht richtig lesen.
Ich möchte halt gern, dass kleine Grafiken normal angezeigt und große Grafiken in Ihrer Breite angepasst werden. Das scrollen nach unten kann ruhig bleiben...
Wie ermittle ich von der zuladenden JPG-Datei die Breite und Höhe in Pixel, um diese dann entsprechend Deinem Code zu übergeben, wenn Sie größer sind, wie das Browser-Element.
Gruß und Danke
Kay
Anzeige
Nur Breite
10.01.2012 18:00:59
Anton
Hallo Kay,
probier sowas:
Code:

Private Sub CommandButton1_Click()  
  Me.WebBrowser1.Navigate "about:blank"
  Do
    DoEvents
  Loop Until Me.WebBrowser1.Document.ReadyState = "complete"    
  bild = "E:\Temp\Cats.jpg" 'anpassen
  If Len(Dir(bild, vbNormal)) = 0 Then Exit Sub    
  Set objShell = CreateObject("Shell.Application")  
  ordner = Left(bild, InStrRev(bild, "\"))
  Set objFolder = objShell.Namespace(ordner)
  Set objbild = objFolder.ParseName(Mid(bild, InStrRev(bild, "\") + 1))  
  For i = 0 To 300  
    If objFolder.GetDetailsOf(, i) = "Abmessungen" Then  
      breite = Split(objFolder.GetDetailsOf(objbild, i), " ")(0)
      Exit For  
    End If  
  Next
  Set objShell = Nothing  
  If breite > Me.WebBrowser1.Width Then  
    msg = "<img src='" & bild & "' width='100%'>"
  Else
    msg = "<img src='" & bild & "'>"
  End If  
  Me.WebBrowser1.Document.body.innerhtml = msg
End Sub  


mfg Anton
Anzeige

Links zu Excel-Dialogen

CommandButton UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige