Shape
05.05.2017 21:54:06
stef26
ich hab da mal ne Frage.
Ich habe ein Makro, welches mir ein Bild aus einem anderen Tabellenblatt projeziert.
So kann ich zum Beispiel eine Beschreibung wie in einem Film ablaufen lassen, oder eine Super Laufschrift generieren...
For IntroZaehler = 1 To 35
ActiveSheet.Shapes.Range(Array("Vorschau")).Select
Selection.Formula = "=INTROTXT!$A$" & 1 + IntroZaehler & ":$C$" & 18 + IntroZaehler
Application.Wait (Now + TimeValue("0:00:01"))
Next IntroZaehler
Leider funktioniert das Ganze nur mit select, was einen unschönen Rahmen um das Shape macht.
Wieso bringt mir
ActiveSheet.Shapes.Range(Array("Vorschau")).Formula = "=INTROTXT!$A$" & 1 + IntroZaehler & ":$C$" & 18 + IntroZaehler
eine Fehlermeldung?
Gibt es eine andere Lösung ohne das Shape selektieren zu müssen?
Lg
Stefan