Forum
Tipps
News
Menu-Icon

VBA - Grafik positionieren

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ß

« Visual Basic .net Listview wichtigggggQBasic »
 

Schnelle Hilfe: Hier nach ähnlichen Fragen und passenden Tipps suchen!

Fremdwörter? Erklärungen im Lexikon!
Subnetz
Ein Subnetz, (englisch "Subnet"), ist ein eigenständiger und abgetrennter Teil eines größeren Netzwerks. Die Aufteilung eines großen Netzwerks in kl...