Selektierter Shape auf Bildschirmfenster
31.10.2006 12:40:03
Gregor
Hier eine (unmögliche) Frage.
Ist es möglich, auf einer Karte (Excel-Sheet) mit vielen Shapes (Orte) den gesuchten Ort (Kartenauschnitt) automatisch auf das Bildschirmfenster zu scrollen?
Mit folgendem Befehl färbe ich den gesuchten Ort (Shape) via VBA rot ein. Schön wäre es, wenn dieser Ort automatisch in dîe Mitte des Bildschirms oder zumindest auf das Bildschirmfenster gescrollt werden könnte, damit der Benutzer nicht auf und ab scrollen muss, bis der rote Punkt (Ort) auf dem Bildschirmfenster erscheint.
Ort = "Luzern"
Worksheets("Übersichtskarte").Select
ActiveSheet.Shapes(Ort).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 2 'rot
Gibt es da irgendwelche Möglichkeit?
Vielen Dank
Gregor
Anzeige