Es soll eine TIF-Datei in ein Dokument eingefügt werden (Kopfzeile), wenn eine bestimmte Vorlage geöffnet wird. Nun soll diese TIF-Datei eine genaue Position im Dokument haben. Leider kenne ich den Befehl nicht dafür.
Hier die bisherige Programmierung:
'Sub LogoEinfuegen()
Sub autonew()
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.InlineShapes.AddPicture FileName:= _
"Q:\DMAKRO\VORLAGEN\LogoVL\37Schweden\EH37_1.tif", LinkToFile:=False, _
SaveWithDocument:=True
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
With Selection.InlineShapes(1).Fill
.Visible = msoFalse
.Transparency = 0#
End With
With Selection.InlineShapes(1).Line
.Weight = 0.75
.Transparency = 0#
.Visible = msoFalse
End With
With Selection.InlineShapes(1)
.LockAspectRatio = msoTrue
.ScaleHeight = 100#
.ScaleWidth = 100#
End With
With Selection.InlineShapes(1).PictureFormat
.Brightness = 0.5
.Contrast = 0.5
.ColorType = msoPictureAutomatic
.CropLeft = 0#
.CropRight = 0#
.CropTop = 0#
.CropBottom = 0#
End With
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Gruß
VBA Gast |