Shapes und InlineShapes
12.07.2004 20:19:32
Benjamin
Ich habe nen "tolles" Programm geschrieben um InlineShapes an Textmarken einzufügen und kann auch die InlineShapes darüber ansprechen. Nun muss ich eine oder mehrere der InlineShapes in Shapes umwandeln.
Frage: Wie kann ich sie dann noch ansprechen?
Kann man vielleicht beim Umwandeln einen Namen vergeben? Ich weiss es nicht, bitte Helft mir!
Hier der Code:
--------------------------------------------------
Dim Worddoc As Object
dim iShape as InlineShape
Set Worddoc = GetObject(Pathword)
Temp = "c:\Bildpfad"
Worddoc.Bookmarks("Textmarke").Range.InlineShapes.AddPicture "c:\Bildpfad",_
LinkToFile:=False, SaveWithDocument:=True
...
iShape.ConvertToShape
--------------------------------------------------
so bis hier hin gehts aber nun kann ich die Shape (vorher InlineShape) nicht mehr über iShape ansprech ist ja jetzt eine Shape und das Objekt leider für InlineShapes gedacht)
Ich habe ein paar sachen ausgelassen aber wie gesagt der Code soweit den ich habe funktioniert ja auch!