Office 2003: Bild aus eingebetteten Webbrowser speichern

[maximumm]

Hallo,

ich habe auf einem Excel-Blatt das Webbrowser Steuerelement eingebettet. Im Browser wird nur ein einziges Bild angezeigt.

Besteht nun irgendwie die Möglichkeit, das Bild automatisch direkt in Excel einzufügen.
Manuell funktioniert es wie folgt.

• Rechtsklick auf das Bild im eingebetteten Browser-Steuerelement
• Befehl Kopieren auswählen
• Gewünsche Zelle in Excel selektieren
• und kopierte Grafik aus Zwischenablage einfügen.

Ich bräuchte nun wie gesagt, für diese manuelle Vorgehensweise eine automatisierte Lösung.

Hat jemand eine Idee oder einen Lösungsansatz. Freue mich auf euer Feedback. Im Anhang habe ich einen Screenshot beigefügt, der das Webbrowser-Steuerelement mit einem QR-Code als Bild zeigt.

Viele Grüße

Max

[Thomas Ramel]

Grüezi Max

Lass bei den geschilderten Schritten doch mal den Makro-Recorder mitlaufen und sieh dir an was dabei an VBA-Code aufgezeichnet wird. Vielleicht hilft dir das bereits weiter?

[maximumm]

Hallo Thomas,

ja, den Makro-Rekorder habe ich schon mitlaufen lassen.
Es wird aber nur das Einfügen aus der Zwischenablage aufgezeichnet, der Kopiervorgang des Bildes aus dem Webbrowser leider nicht.

Die Frage ist, wie sich das Bild aus dem Webbrowser kopieren lässt.

Viele Grüße

Max

[maninweb]

Hallo maximumm...

hast Du denn einen speziellen Grund, das Webbrowser Steuerelement zu verwenden?
Für ein Bild an sich wäre es nicht notwendig.

Gruß

[maximumm]

Hi maninweb,

der Browser ruft direkt den QR-Code ab, soweit funktioniert das ganze auch schon.
Der QR-Code wird nun aber als Grafik im Browser angezeigt und ich bräuchte das QR-Code Bild in einer Zelle.

Viele Grüße

Max

[maninweb]

Hallo maximumm...

wenn Du die Adresse der URL kennst, also die der Bilddatei, ginge es auch wie folgt...

- in der ersten Tabelle ein Shape = Rechteck anlegen und als "Picture" im Namensfeld benennen, ohne die "
- Code in einem Modul einfügen

Code: Visual Basic

1. Public Sub Test()
2.    
3.     Dim objFill As FillFormat
4.     Dim strURL  As String
5.    
6. '   Errors...
7.    
8.     On Error Resume Next
9.    
10. '   URL...
11.    
12.     strURL = "http://www.maninweb.de/miscilleanous/rose.jpg"
13.    
14. '   Create...
15.    
16.     Set objFill = ThisWorkbook.Worksheets(1).Shapes("Picture").Fill
17.    
18. '   Check...
19.    
20.     If Not objFill Is Nothing Then
21.      
22.       objFill.UserPicture strURL
23.      
24.     End If
25.    
26. '   Clear...
27.    
28.     Set objFill = Nothing
29.    
30.   End Sub
31.  

Gruß

[maximumm]

Hallo maninweb,

vielen Dank, das war ein Volltreffer! Funktoniert einwandfrei auch ohne Webbrowser-Steuerelement, indem ich den QR-Code einfach in das Zeichenelement einlese.

Herzliche Grüße

Max