Einlesen eines Bildes in eine Bildvariable

Hallo,

ich habe eine Liste von Bildern in meine Tabelle mittels Schleife geladen:



Lauf = 20

While Worksheets(2).Cells(4, Lauf).Value > ""

  Cells(2, 1000 + Lauf).Activate



sPicture = Application.GetOpenFilename _

 ("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _

 , Worksheets(2).Cells(4, Lauf).Value)





 If sPicture = "False" Then Exit Sub

 Set picA = ActiveSheet.Pictures.Insert(sPicture)

With picA

.ShapeRange.LockAspectRatio = msoTrue

.Height = 400

.Top = ActiveCell.Top

.Left = ActiveCell.Left

.Name = Worksheets(2).Cells(4, Lauf).Value

.ShapeRange.Name = Worksheets(2).Cells(4, Lauf).Value

End With



Lauf = Lauf + 1

Wend

Dabei habe ich den Bildern Namen zugewiesen, auf die ich später zugreifen möchte.

Jetzt würde ich gerne einzelne Bilder basierend auf dem Namen in eine Picture Variable kopieren, bekomme aber nicht die korrekte Syntax hin.

Mein Versuch bis hierhin ist:



Set picA = Shapes("Sales_Person")

wobei "Sales Person" den Namen des Bildes enthält (habe ich mit MsgBox verifiziert). picA ist als Picture dimensioniert. Ich denke, hier ist nur die genaue Ansprache des Bildes das Problem, ich finde aber nicht den Fehler.

Über Hilfe wäre ich sehr dankbar
Gruß
Andreas

Hallo Onur,

das Thema einlesen ist nur ein Nebenkriegsschauplatz. Wie gesagt, geht es mir um den Teil, der in der Powerpoint_erstellen Sub enthalten ist.

Das Einlesen war ggf. nicht optimal, aber es tat, was es sollte. Deine Anpassungen nehme ich zukünftig als Vorlage, machen aber nicht genau das was ich brauche.

eigentlich habe ich genau hier:



    

    Set picA = Shapes.Range(Array("Sales_Person"))

    With picA

    .ShapeRange.LockAspectRatio = msoTrue

    .Height = 400

    .Top = ActiveCell.Top

    .Left = ActiveCell.Left

    .Name = "Account"

    .ShapeRange.Name = "Account"

    End With

das Problem beim setzen des picA. Da bekomme ich den Fehler 400.

Sieh mir bitte nach, falls ich was übersehen habe, aber die Bilder laden so wie sie sollen in Bilder_einlesen. Dies ist auch nur ein Hilfsscript, dass einmal eingelesen gestartet wird, um die Bildliste einmal zu bekommen.

Mein Hauptthema ist (neben einigen anderen Scripten die da drin sind, die Erstellung der PowerPoint Datei, in der ich die einmal geladenen Bilder nach Bedarf an die richtigen stellen setzen muss. Dafür muss ich aus den eingeladenen Bildern das finden, das mit dem Ergebnis aus "Sales-Person" getagt ist.

Danke
Andreas

Einlesen eines Bildes in eine Bildvariable

Forumthread: Einlesen eines Bildes in eine Bildvariable

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Einlesen eines Bildes in eine Bildvariable

Forumthread: Einlesen eines Bildes in eine Bildvariable

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread