Text an eingebettetes Word-Textfeld übergeben
10.08.2005 14:53:34
Matthias
ich habe ein Wordobjekt in ein Excelarbeitsblatt eingebettet und möchte nun mit einem Makro Text aus einer Zelle in dieses Wordobjekt kopieren. Wie kann ich dies bewerkstelligen?
Ich habe schon einmal ein bischen angefangen:
Sub Makro5()
Range("F1").Select
Selection.Copy
ActiveSheet.Shapes("Textfeld2").Select
Selection.Verb Verb:=xlPrimary
End Sub
jedoch findet anschließend ein Wechsel zu einem Wordmakro statt, wenn ich die ganze Geschichte aufzeichne. Wie bekomme ich denn jetzt den Text in das Textfeld?
Vielen Dank für eure Hilfe. Ich benötige das für meine Diplomarbeit.
Matthias