Hallo
ich habe einen Bericht und dort ist es möglich bestimmte Bilder per Checkbox zu löschen. Jedoch kann über eine zweite Checkbox wieder eingefügt werden. Das klappt auch aber die Bilder haben eine undefinierte Größe.
Kann ich diese vorher bestimmen?
If XXX.Value = True Then
Exit Sub
Else
Selection.GoTo What:=wdGoToBookmark, Name:="PQ_Einfügen"
If ActiveDocument.Bookmarks.Exists("PQ_Einfügen") Then
Selection.Bookmarks.Add ("PQ_XXX")
Selection.InlineShapes.AddPicture FileName:="XXX.jpg"
Selection.InlineShapes.AddPicture FileName:="XXX.jpg"
Selection.InlineShapes.AddPicture FileName:="XXX.jpg"
Selection.Sections.Add
End if
end if
end sub
|