Hente billeder fra browser

Hvis du bruger søgeord som "billede" kommer der 133 muligheder. Prøv det.

Tak Mugs ...

Syns jeg har søgt, men ikke fundet noget, hvor en makroen henter billeder ind i excel.

hvordan skal dine billeder kopieres ind - udpeges via links, være links eller?
hvilket format har de ?

Til hver af produkterne ligger et link ... www.domæne.com/billed.jpg

Typisk kan man jo klikke og se billedet ...

Jeg vil blot gerne have mulighed for at hente billedet ind ...

Søren

Stil dig i den celle hvor billedet skal have øverste venstre hjørne af billedet indsat. Kør en makro a la denne:

ActiveSheet.Pictures.Insert( _
"http://www.domæne.com/billed.jpg").Select
Selection.ShapeRange.Width = 100

bemærk at der skal stå http:// som det forreste.

Tak Akyhne ...

Det kører ikke umiddelbart.

Får at vide at jeg ikke kan angive egenskab for klassen pictures, hvad det så end betyder ...

Så er det fordi billedet ikke eksisterer. Prøv med denne:

Sub Makro3()
Dim D As Range
Dim H As Hyperlink

On Error Resume Next
For Each D In Selection
    If Err.Number = 438 Then
        Err.Clear
        MsgBox "Du skal vælge et område i arket"
    End If
   
    For Each H In D.Hyperlinks
        If H.Name <> "" Then
            If LCase(Left(H.Name, 4)) = "www." Then
                Adresse = "http://" & H.Name
            End If
            If LCase(Left(H.Name, 7)) = "http://" Then
                Adresse = H.Name
            End If
           
            On Error Resume Next
            If Adresse <> "" Then
                ActiveSheet.Pictures.Insert(Adresse).Select
                If Err.Number = 1004 Then
                    Err.Clear
                    MsgBox "Billedet eksisterer tilsyneladende ikke ved celle " & D.Address & "!"
                    GoTo Næste:
                End If
                Selection.ShapeRange.Width = 100
                Selection.ShapeRange.IncrementLeft D.Width
                Selection.ShapeRange.IncrementTop 0
                D.Select
            End If
       
        End If
Næste:
    Next
Next
End Sub

Indsætter billederne i cellen til højre for de hyperlinks du har i arket.

Lidt klogere blive man jo hen af vejen

Begge dele virker selvfølgelig ... i version 2003, men ikke i 2007'eren ...

Hvad skal mon ændres ...

Hvad glipper, og hvordan? Hvilket Excel format?

Har lavet en xls fil med begge dine forslag, kører jeg makroerne i version 2003 så kører de begge.

Åbner jeg i 2007, så viser den korte version fejlen fra før, og den lange version ... fortæller at billedet tilsyneladende ikke exsisterer ved celle g11, den celle linket står i ...

Tja, Excel 2007 understøtter tilsyneladende ikke indsæt af billeder fra web ad den vej: http://support.microsoft.com/kb/928983/en-us

De foreslår i stedet indsættelse af en figur med fill af et billede. Så bliver koden således:


Sub Makro3()
Dim D As Range
Dim H As Hyperlink

On Error Resume Next
For Each D In Selection
    If Err.Number = 438 Then
        Err.Clear
        MsgBox "Du skal vælge et område i arket"
    End If
   
    For Each H In D.Hyperlinks
        If H.Name <> "" Then
            If LCase(Left(H.Name, 4)) = "www." Then
                Adresse = "http://" & H.Name
            End If
            If LCase(Left(H.Name, 7)) = "http://" Then
                Adresse = H.Name
            End If
           
            On Error Resume Next
            If Adresse <> "" Then
                With D
                    Set myPict = ActiveSheet.Shapes.AddShape(msoShapeRectangle, D.Top, D.Left + D.Width, 100, 100)  '(Adresse)
                    myPict.Select
                    Selection.ShapeRange.Fill.UserPicture (Adresse)
                End With

                If Err.Number = -2147467259 Then
                    Err.Clear
                    MsgBox "Billedet eksisterer tilsyneladende ikke ved celle " & D.Address & "!"
                    myPict.Delete
                    GoTo Næste:
                End If
                D.Select
            End If
       
        End If
Næste:
    Next
Next
End Sub


Den er ikke testet i 2003, men burde også virke der.

Jeg har lidt problemer med at få placeringen af billedet til at lægge sig det rigtige sted, men jeg vil kigge på det på et tidspunkt.

Tak akyhne .. placeringen er ikke det værste ...

Prøver lige versionen i begge, ellers må jeg bare køre med to stumper makro. Har i forvejen noget kode, hvor jeg kører med forskellig versioner ...

Point'ne er klar til afhentnig

Nå, det var mig der havde dummet mig:

Set myPict = ActiveSheet.Shapes.AddShape(msoShapeRectangle, D.Left + D.Width, D.Top, 100, 100)

Havde byttet rundt på top og left. Så nu bliver billedet placeret som i den oprindelige makro -  ved cellen til højre for.

Og til pointfordeling:

Og I øvrigt Akyhne tak for at du tager spørgsmålet alvorligt, og ikke bare ...

Takker for point :-)

passiflora > Normalt er Excel ikke mit område. Jeg arbejder mest i Access, men det skal dog ikke forhindre mig i, at prøve at lære noget om Excel om hjælpe, hvor jeg mener der er en mulighed. Bemærk, at jeg ikke har afgivet et svar men blot en kommentar. Det bevirkede, at du har giver mig en karma på 25 %. Det er dit valg og som sådan OK, men skulle du ved en fejltagelse komme ind i Access-kategorien vil jeg vælge at "overse" dit spørgsmål for ikke at risikere at blive svinet til endnu engang. Og hvis du ligesom jeg, har været med på ekspertern i flere år vil du se, at langt fra alle søger i spørgsmålene inden de opretter et nyt spørgsmål for at få assistance:

"Et svar om at søge bredt på billeder, hmm, selv om det var et ønske om at hjælpe, har man ikke noget bedre, syns jeg det bedre slet ikke at svarre. Mon ikke alle herinde søger inde de stiller spørgsmål."

Mugs> Ja trusler eller løfter, og man må lade være med at give sin mening til kende ... hmm ... måske man skulle lade være med at bruge Karma. Jeg giver jo blot udtryk for min mening.

Jeg har bestem ikke nogen lyst og ønske om at svine nogen til, tværtom. Du kunne jo opfatte min kommentar positivt. Tænk bare ... jeg interesserer mig for dig, jeg har ønsket at give dig min kommentar til den oplevelse jeg har haft.

Heldigvis er langt de fleste oplevelser herinde gode, og ja dem burde man præmierer. Og jo det skal også jeg blive god til.

Søren

Om du tager min medvirken som en trussel eller et løfte er jeg ligeglad med. Hvordan kan jeg opfatte din kommentar positivt, når du i den grad forringer min karma.

Din interersse for mit brugernavn kan jeg sagtens undvære, og hvis du havde gjort dig den ulejlighed at se i allerede besvarede spørgsmål vil du opleve, at utallige spørgsmål er overflødige, idet svarene allerede ligger i ekspertens vidensbase.