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, 4477 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(2)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
VB for Applications
Excel VBA Sortierung von Daten (5)

Frage von easy4breezy zum Thema VB for Applications ...

VB for Applications
gelöst Excel VBA Eine oder mehrere Zellen Verschieben (2)

Frage von batchnewbie zum Thema VB for Applications ...

Microsoft Office
Excel VBA: Tranferieren von Werten aus Quelldatei in die Masterdatei mit SVERWEIS (3)

Frage von peter.schroeder zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...