Hallo an alle,
verzeiht meine Naivität, ich mache dies zum ersten Mal und hoffe, dass mir in diesem Forum geholfen werden kann.
Sollte ich etwas vergessen, oder nicht klar genug formulieren, bitte ich um Nachsicht und um Rückmeldung.
Nun zu meinem Problem:
Ich würde gerne anhand einer Nutzerauswahl ein Bild automatisch ändern lassen. Das soll so funktionieren, dass der Nutzer eine Info gibt und diese Info eine Grafik auswählen soll, die vorher in einer Tabelle definiert worden ist (Bsp.: Nutzer wählt einen Wert 1 oder 2 und dieser soll Bild 1 auswählen und an eine Stelle des Arbeitsplatzes kopieren; Nutzer wählt Wert 3, 4 oder 5 und das Bild 2 wird ausgewählt und kopiert bzw. platziert etc.).
Hier der dazugehörige VBA code mit einem Zusatz den ich später erklären werde und einer kurzen Erklärung, was ich von dem Code erwarte:
Sub GetPic()
Sheets("DS").Select (sollte den Tab "DS" auswählen)
Worksheets("DS").DrawingObjects(17). (sollte im Tab "DS" das Bild Nr. 17 auswählen)
i = Sheets("Pictures").Range("dwg_no").Value (sollte dem "parameter" "i" den Wert aus Zelle "dwg_no" im Tab "Pictures" zuweisen. Dieser weist der Nutzerauswahl das richtige Bild zu)
Worksheets("Pictures").DrawingObjects(i).Copy (sollte das Bild mit der "dwg_no" des "Parameters" "i" kopieren)
Worksheets("DS").Select (sollte wieder Tab "DS" auswählen)
ActiveSheet.Range("dwg_position").Select (sollte die Zellen mit dem Namen "dwg_position" auswählen, an der das vorher ausgewählte Bild positioniert werden soll)
ActiveSheet.Paste (sollte das zuvor kopierte Bild an "dwg_position" hineinkopieren)
Worksheets("Input").Select (Sollte zurück zum Tab "Input" wechseln, um weitere Nutzerdaten zu erlauben)
End Sub
Was ich nicht verstehe, ist wie genau man die Nummer der Bilder einsehen kann. Was ist der einfachste Weg diese zu erkennen? Ich weiss bspw. nicht warum das Bild, welches aktuell da steht die Nr. 17 hat...
Das aktuelle Bild soll nach jeder neuen Nutzerauswahl erst gelöscht werden, damit das neue Bild dort Platz hat.
Der Vorgang muss beliebig oft wiederholbar sein. Dazu muss (denke ich) das aktuell ausgewählte Bild allgemein gehalten werden. Sollte sich der Vorgang nach meinem Beispiel wiederholen, würde dieser VBA code einen Fehler erzeugen, da nach dem ersten Mal das Bild Nr. 17 nicht mehr verfügbar ist, da es ja anhand der Nutzerdaten getauscht wird...
So, ich hoffe ich habe nun genügend Input gegeben, sodass mir in meiner Angelegenheit geholfen werden kann, sollte ich aber dennoch irgendetwas wichtiges vergessen haben, oder nicht richtig erklärt haben, bitte ich um Rückmeldung.
Vielen Dank schonmal im Voraus für eure Rückmeldungen!
|