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, 5126 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
gelöst EXCEL VBA Zellen verbinden. MERGE (6)

Frage von Aximand zum Thema VB for Applications ...

Microsoft Office
gelöst Excel VBA In Userform Maske Text nach Eingabe löschen (1)

Frage von kluthi69 zum Thema Microsoft Office ...

Microsoft Office
Unterordner durchsuchen Excel VBA (1)

Frage von schwalbepilot zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel VBA: Automatische Konvertierung von Textdatei (.txt) zu Exceldatei (.xlsx) (7)

Frage von Booster07 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Rechtliche Fragen

Heiseshow, live ab 12 Uhr: Steht die Vorratsdatenspeicherung vor dem Aus?

Tipp von sabines zum Thema Rechtliche Fragen ...

Outlook & Mail

Outlook Probleme nach Juni Updates - KB3203467 ist Schuld

(1)

Information von Deepsys zum Thema Outlook & Mail ...

Microsoft Office

Windows 7, Office 2016 RTM und Updates ohne WSUS

Tipp von chgorges zum Thema Microsoft Office ...

E-Mail

Thunderbird 52 hat Druckprobleme

(3)

Tipp von magicteddy zum Thema E-Mail ...

Heiß diskutierte Inhalte
Server-Hardware
Einem Stromausfall entgegen wirken (22)

Frage von OIOOIOOIOIIOOOIIOIIOIOOO zum Thema Server-Hardware ...

Festplatten, SSD, Raid
PC stellt nach dem Bios ab (20)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...

Windows 7
Freeware MSI Tool (13)

Frage von uridium69 zum Thema Windows 7 ...

DSL, VDSL
gelöst Ständige Störungen - Internet (12)

Frage von gamerff zum Thema DSL, VDSL ...