|
jetzt muss ich mich doch noch mal an den vba guru für textmarken wenden xD
in meiner userform habe ich eine checkbox, die wenn aktiv dieses scipt hier auführt
Sub GrafikEinfügen()
Dim intChoice As Integer
Dim strPath As String
'only allow the user to select one file
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
'make the file dialog visible to the user
intChoice = Application.FileDialog(msoFileDialogOpen).Show
'determine what choice the user made
If intChoice <> 0 Then
'get the file path selected by the user
strPath = Application.FileDialog( _
msoFileDialogOpen).SelectedItems(1)
End If
'move the cursor to the bookmark
Selection.GoTo What:=wdGoToBookmark, Name:="TM_Unterschrift"
'insert the image
Selection.InlineShapes.AddPicture FileName:= _
strPath, LinkToFile:=False, _
SaveWithDocument:=True
End Sub
wo eine Textmarke (in dem Fall "TM_Unterschrift") gesucht wird und dann davor ein Grafik angehangen wird, die man selber raussucht.
ist es möglich, den schrit von der textmarke auch wieder rückwerts zu gehen?
so das ich über AutoOpen
immer wieder das Bild löschen, sofern es vorhanden ist?
|