Bild einfügen Fehler

Hallo Excelfreunde.
Ich hoffe Ihr könnt mir auch dieses mal wieder helfen.
Folgendes Problem:
Ich habe einen recht komplexen Macrocode mit dem ich ein Tabellenblatt aufbereite.
Eine Teilprozedur fügt ein Bild ein, welches auf einem Netzlaufwerk liegt.
Das Bild wird als Konstante zunächst deklariert.
Der Code ist im Tabellenblatt gespeichert und nicht in einem Modul.
Wenn ich nun das Macro starte, bricht er leider ab bei folgender Zeile
Excel.Worksheets(blatt).Pictures.Insert(c_BG_BAU_LOGO).Select
früher gingf das mal. Ich habe keine Ahnung warum jetzt nicht mehr.
Habt Ihr eine Idee?
Hier nochmal die ganze Teilprozedur
Const c_BG_BAU_LOGO = "P:\64 PZ-QS\30 PZ-QS - übergreifend\10 Testfallerstellung\BG-Bau-Logo.JPG"

Sub KopfBildEinfügen(blatt As String)
Excel.Worksheets(blatt).Activate
Excel.Worksheets(blatt).Range("H3").Select
On Error GoTo 0
   Excel.Worksheets(blatt).Pictures.Insert(c_BG_BAU_LOGO).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 36.75
Selection.ShapeRange.Width = 105.75
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.IncrementLeft 46.5
Selection.ShapeRange.IncrementTop -12#
End Sub

Und hier die derzeit bestehenden Verweise. Vielleicht liegts auch daran, aber geändert habe ich da nichts
Visual Basic for Applications
Microsoft EXCEL 11.00 Object Library
OLE Automation
Microsoft Office 11.00 Object Library
Microsoft Forms 2.0 Object Library
Microsoft Visual Basic for Applications Extensibility 5.3
Microsoft Windows Image Acuisition 1.01 Type Library
Danke schonmal.
vlg Andy

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Const c_BG_BAU_LOGO = "P:\64 PZ-QS\30 PZ-QS - übergreifend\10 Testfallerstellung\BG-Bau-Logo. _ JPG" Sub Uebergabe() KopfBildEinfügen "Tabelle1", c_BG_BAU_LOGO End Sub Sub KopfBildEinfügen(blatt As String, Bild As String) Dim picBild As Picture With Worksheets(blatt).Range("H3") Set picBild = Worksheets(blatt).Pictures.Insert(Bild) With picBild .ShapeRange.LockAspectRatio = msoTrue .ShapeRange.Height = 36.75 .ShapeRange.Width = 105.75 .ShapeRange.Rotation = 0# .ShapeRange.IncrementLeft 46.5 .ShapeRange.IncrementTop -12# End With Set picBild = Nothing End With End Sub

Hi Andy,
da ich nicht weiß, mit welchem Code du die Sub mit dem Paramter aufrufst, musste ich eine eigene erstellen. Mit ihr wird er Tabellenname und der Bildname einschließlich Pfadangabe an die Sub übergeben.
In der Zeile

Set picBild = Worksheets(blatt).Pictures.Insert(Bild)

bedeutet (Bild) den übergebenen Bildnamen einschließlich Pfad - also deine deklarierte Konstante.
Da ich nicht weiß, mit welcher Fehlermeldung dein Code abbricht, kann ich dazu nichts sagen - bei mir läuft mein Code fehlerfrei. Das Einzige, was ich - ohne dein Arbeitsmappe zu kennen - mir noch vorstellen könnte ist, dass das Tabellenblatt mit einem Blattschutz versehen ist. Dieser msus dann vorher aufgehoben werden.

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread