MSAccess Word Grafik auf Text - oder wie Händel ich InlineShapes(x)

Nicht wirklich Access - eher die Steuerung von Word aus Access via VBA

Ich habe eine Access anbindung an Word - in dieser Fülle(Tausche) ich Felder im Dokument mit daten aus der Datenbank

Unter anderem Setze ich auch Briefkopf und Unterschrift rein - als Beispiel mal angerissen der Briefkopf

Set Word = CreateObject("Word.Application")
With Word
                .Documents.Add CStr(GBWordDateienPfad & "Vorlagen\Brief\" & WelcheVorlageBrief), False, 0

                .Selection.Find.ClearFormatting
                .Selection.Find.Text = "{fdWordBriefkopf_UBT}"
                .Selection.Find.Execute
                If .Selection.Find.Found = True Then
                    .Selection.Delete Unit:=wdCharacter, count:=1
                    .Selection.InlineShapes.AddPicture Filename:=WordBriefkopf, LinkToFile:=False, SaveWithDocument:=True
                End If
            .ActiveDocument.SaveAs2 Filename:=(GBMeineDatenAdressen & AB!Adresse) & "\" & Year(Now) & "\" & DocBez & ".docx", FileFormat:=16, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False
            .Application.visible = True
            .Application.Activate
End With

Nun möchte ich an der soeben eingefügten Grafik etwas ändern und zwar in der art wie

.ActiveDocument.InlineShapes(1).ConvertToShape

.ActiveDocument.InlineShapes(1).Height = xxx
.ActiveDocument.InlineShapes(1).Width = xxx
.ActiveDocument.ShapeRange.ZOrder 5

Ich weiss nur nicht wie ich an den wert in Klammern bei InlineShapes(x) komme den ich gerade mit

.Selection.InlineShapes.AddPicture 

eingefügt habe.

hat jemand damit schon mal etwas gemacht?

mit der Microsoft hilfe komme ich selber nicht weiter

https://docs.microsoft.com/de-de/office/vba/api/word.inlineshapes

wäre für einen ansatz dankbar