Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

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"


 

 

Textdatei in Tabellenblatt importieren
  

Textdatei nach Begriff durchsuchen und Fundzeile importieren
  

 



Diagramm exportieren und in Tabellenblatt importieren
  

Suchbegriffe in UserForm eingeben, Fundstelle importieren
  

 



Benannte Bereich aus mehreren Arbeitsmappen importieren
  

Textdatei mit 250.000 Zeilen anlegen und importieren
  

 



Name und Vorname  suchen, Werte und Fundstellen importieren
  

Grafik importieren und in Zelle zentrieren
  

 



Arbeitsblatt aus einer anderen Arbeitsmappe importieren
  

Textdatei über QueryTables importieren
  

 



Textdatei in ein neues Tabellenblatt der Arbeitsmappe importieren
  

Alle Textdateien eines Verzeichnisses importieren
  

 



Werte aus Textdatei importieren und umwandeln
  

Werte aus anderen Arbeitsmappen importieren