Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Excel mit VBA: Bild aus dem Internet einfügen

Frage Microsoft Microsoft Office

Mitglied: peterha

peterha (Level 1) - Jetzt verbinden

29.07.2014, aktualisiert 14:53 Uhr, 5249 Aufrufe, 2 Kommentare

Hallo zusammen,

ich habe gestern etliche vba-Schnipsel ausprobiert, aber keines hat so richtig hingehauen...

Ich möchte: Ein Bild aus dem Internet in Excel einfügen. Automatisiert. bei jedem mal, wenn die Mappe geöffnet wird, soll das aktuelle Bild aus dem Internet heruntergeladen werden und das alte ersetzt werden.

Dieser Code hier funktioniert nur mit lokalen Bildern. Was muss geändert werden? (Meine Test waren nicht erfolgreich.)
Wenn das Makro erneut läuft soll, soll das alte Bild ersetzt werden. (So wird immer wieder drüber gelegt.)

Immerhin funktioniert hier die Positionierung in der Mappe, was ich von den anderen, die ich getestet habe, nicht sagen kann...

Herzlichen Dank für eure Hilfe vorab.
Peter


Bisheriger Code:

01.
Sub TestInsertPictureInRange() 
02.
    InsertPictureInRange "K:\mein-geheimer-pfad\bild.jpg", _ 
03.
        Range("B5:D10") 
04.
End Sub 
05.
 
06.
Sub InsertPictureInRange(PictureFileName As String, TargetCells As Range) 
07.
' inserts a picture and resizes it to fit the TargetCells range 
08.
Dim p As Object, t As Double, l As Double, w As Double, h As Double 
09.
    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub 
10.
    If Dir(PictureFileName) = "" Then Exit Sub 
11.
    ' import picture 
12.
    Set p = ActiveSheet.Pictures.Insert(PictureFileName) 
13.
    ' determine positions 
14.
    With TargetCells 
15.
        t = .Top 
16.
        l = .Left 
17.
        w = .Offset(0, .Columns.Count).Left - .Left 
18.
        h = .Offset(.Rows.Count, 0).Top - .Top 
19.
    End With 
20.
    ' position picture 
21.
    With p 
22.
        .Top = 200 
23.
        .Left = 400 
24.
        .Width = 300 
25.
        .Height = 300 
26.
    End With 
27.
    Set p = Nothing 
28.
End Sub 
29.
 
Mitglied: colinardo
LÖSUNG 29.07.2014, aktualisiert 08.01.2015
Hallo Peter,
der folgende Code holt das Internet-Bild bei jedem Öffnen des Workbooks und fügt es an der gewünschten Stelle des Sheets ein. Sollte das Bild schon vorhanden sein wird es vorher gelöscht.
01.
Sub importImage() 
02.
    Dim ws As Worksheet, rngTarget As Range, shp As Shape, myImage As Shape, strBildUrl As String 
03.
    'Tabellenblatt festlegen 
04.
    Set ws = Worksheets(1) 
05.
    ' URL des Bildes 
06.
    strBildUrl = "http://www.domain.tld/images/categories/office_2013-120x65.jpg" 
07.
    ' Ziel-Range für das Bild 
08.
    Set rngTarget = ws.Range("B5:D10") 
09.
    ' Suche das Bild und lösche es falls vorhanden 
10.
    For Each shp In ws.Shapes 
11.
        If shp.AlternativeText = "myImageTag" Then 
12.
            shp.Delete 
13.
            Exit For 
14.
        End If 
15.
    Next 
16.
    ' Bild hinzufügen 
17.
    Set myImage = ws.Shapes.AddPicture(strBildUrl, msoTrue, msoTrue, rngTarget.Left, rngTarget.Top, rngTarget.Width, rngTarget.Height) 
18.
    ' Bild zur wiedererkennung 'taggen' 
19.
    myImage.AlternativeText = "myImageTag" 
20.
End Sub 
21.
 
22.
' Prozedur ausführen wenn Arbeitsmappe geöffnet wird 
23.
Private Sub Workbook_Open() 
24.
    importImage 
25.
End Sub
Um das Bild für den Löschvorgang wiederzuerkennen versehe ich es mit einem Tag in der Eigenschaft AlternativeText anhand dessen wir es identifizieren können.

Grüße Uwe
Bitte warten ..
Mitglied: peterha
29.07.2014 um 14:53 Uhr
Abermals hast du mir sehr geholfen Uwe! Herzlichen Dank!
Grüße,
Peter
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Bilder vom LDAP in VBA - Excel (3)

Frage von 94451 zum Thema VB for Applications ...

Microsoft Office
gelöst Excel-Formel oder VBA (7)

Frage von nicki01 zum Thema Microsoft Office ...

VB for Applications
gelöst Mit VBA im Monatskalender Datum suchen - aus anderer Datei einfügen (6)

Frage von Otto1699 zum Thema VB for Applications ...

Microsoft Office
"Microsoft Excel kann die Daten nicht einfügen" (2)

Frage von arik12 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Linux Netzwerk

Ping und das einstellbare Bytepattern

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(3)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
SAN, NAS, DAS
MSA 2050 RAID Konfig (21)

Frage von Leo-le zum Thema SAN, NAS, DAS ...

Netzwerkmanagement
Windows Server 2008 R2: "netsh reset" nicht verfügbar? (10)

Frage von RickTucker zum Thema Netzwerkmanagement ...

Netzwerkmanagement
Suche eine Software für Cloudverwaltung (6)

Frage von tsunami zum Thema Netzwerkmanagement ...

Google Android
Musik Wiedergabe am PC mit Smartphone über Bluetooth steuern (5)

Frage von justlukas zum Thema Google Android ...