| Von |
aktony |
| Am |
12. November 2009 um 13:33:12 |
| Frage |
Hallo,
ich habe mal wieder ein Problem und zwar will ich in eine Excel Tabelle Logos einfügen die abhängig von der Eingabe variieren. Das Problem ist das die Logos auf einem web-server im Intranet sind.
Ich habe nun jede menge code gefunden aber nichts was mein Problem behebt oder der code war so lang das man dafür fast ne extra Datei braucht. In den meisten fällen gibt er mir in den Zellen nur Zeichencode aus statt das Bild. Sub Makrotest()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL; http://www.cd-ovgu.de/cms/upload/2_anwendungen/00_OVGU/01_Signet/01_JPG/OVGU_SIGN_web_Farbig.jpg" _
, Destination:=Range("$F$19"))
.Name = "OVGU_SIGN_web_Farbig"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Columns("F:F").ColumnWidth = 25.14
End Sub Ich könnte noch etliche andere code einfügen aber ich habe eigentlich keinen der mir gefällt oder annähernd das macht was ich will.
eigentlich brauch ich nur ein bsp.: was Zugriff nimmt und das Bild einfügt.
 |
|
Zum Seitenanfang