Microsoft Excel

Herbers Excel/VBA-Archiv

JPG in Excel importieren | Herbers Excel-Forum


Betrifft: JPG in Excel importieren von: Deister
Geschrieben am: 14.01.2010 10:54:20

Hallo,

Mein Problem dürfte eigentlich nicht das komplizierteste sein.
Ich will per VBA Inserts von Bildern in ein Exceldatei machen und benutze dazu den beigefügten Teilcode. Das klappt auch, doch wenn kein Bild mit dem Namen aus Zelle F12 vorhanden ist, bekomme ich einen Laufzeitfehler.

Kann mir bitte jemand sagen wie der Code heisst welcher mich zu "weiter:" bringt, wenn das Bild mit dem Namen aus F12 nicht besteht?

Im Voraus besten Dank

Ant

Dim nameSelect As String
nameSelect = Range("F12")
picnameSelect = (nameSelect & ".JPG")
Dim dirSelect As String
dirSelect = "C:\Documents and Settings\.........."
Dim picSelect As String
picSelect = (dirSelect & picnameSelect)

' ???? If picSelect = "" Then GoTo weiter ????

Range("J11").Select
ActiveSheet.Pictures.Insert(picSelect).Select
Selection.ShapeRange.ScaleWidth 0.03, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.03, msoFalse, msoScaleFromTopLeft
weiter:

  

Betrifft: AW: JPG in Excel importieren von: Hajo_Zi
Geschrieben am: 14.01.2010 10:56:13

Hallo,

prüfe mit Dir ob Bild vorhanden. Schaue hier http://hajo-excel.de/vba_bild.htm

GrußformelHomepage


  

Betrifft: If dir(picSelect) = "" then Goto Weiter '_oT von: NoNet
Geschrieben am: 14.01.2010 10:57:04

_oT = "ohne Text"


  

Betrifft: Besten Dank von: Deister
Geschrieben am: 14.01.2010 13:15:54

besten Dank,

Die Lösung von NoNet hat mir am einfachsten weitergeholfen

Guss
Ant


  

Betrifft: AW: JPG in Excel importieren von: Josef Ehrensberger
Geschrieben am: 14.01.2010 10:57:52

Hallo Ameise,

If picSelect <> "" Then
  'hier der Code zum Einfügen des Bildes
End If


Gruß Sepp


Beiträge aus den Excel-Beispielen zum Thema "JPG in Excel importieren"