vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
VBA: Bild ausblenden 
Autor: SllnD
Datum: 04.07.06 10:41

Hallo zusammen,

ich bin immernoch an meinem Word Briefassistenten dran zu programmieren. Nun will ich die Funktion einbauen, wahlweise Logo ein und aus. Das Logo ist am richtigen Platz im Word Dokument und soll mit den Kontrast und Helligkeit-Einstellungen wahlweise an und ausgeschaltet werden.

Das Logo hat eine Textmarke "Logo1". Nun habe ich mit der Aufnahmefunktion mich zur Textmarke bewegt und dann die Helligkeit und Kontrast auf 100% gestellt und dies abgespeichert. Heraus kahm dann:

Sub Makro1()
'
    Selection.GoTo What:=wdGoToBookmark, Name:="Logo1"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoFalse
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Rotation = 0#
    Selection.ShapeRange.PictureFormat.Brightness = 1#
    Selection.ShapeRange.PictureFormat.Contrast = 1#
    Selection.ShapeRange.PictureFormat.CropLeft = 0#
    Selection.ShapeRange.PictureFormat.CropRight = 0#
    Selection.ShapeRange.PictureFormat.CropTop = 0#
    Selection.ShapeRange.PictureFormat.CropBottom = 0#
    Selection.ShapeRange.Left = 45.35
    Selection.ShapeRange.Top = -14.15
    Selection.ShapeRange.RelativeHorizontalPosition = _
        wdRelativeHorizontalPositionColumn
    Selection.ShapeRange.RelativeVerticalPosition = _
        wdRelativeVerticalPositionParagraph
    Selection.ShapeRange.Left = CentimetersToPoints(-0.4)
    Selection.ShapeRange.Top = CentimetersToPoints(-0.63)
    Selection.ShapeRange.LockAnchor = False
    Selection.ShapeRange.LayoutInCell = True
    Selection.ShapeRange.WrapFormat.AllowOverlap = True
    Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
    Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
    Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
    Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
    Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
    Selection.ShapeRange.WrapFormat.Type = 3
    Selection.ShapeRange.ZOrder 4
End Sub
Möchte ich dies später dann einmal ausführen kommt aber der Fehler:

Laufzeitfehler 424
 
Objekt erforderlich
Das Bild und die Textmarke ist definitiv vorhanden.

Gibt es evtl. eine bessere Möglichkeit Bilder per VBA zu bearbeiten. Es sollte aber möglichst mit Kontrast gearbeitet werden, die Wordvorlage soll nur eine Datei haben. Das Logo hat auch einen in den Einstellungen unter "Web" einen eindeutigen Namen. Vielleicht kann man das Bild darüber ansprechen.

Über jegliche Hilfe bin ich sehr dankbar.

Gruß
SllnD
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
VBA: Bild ausblenden3.227SllnD04.07.06 10:41
Re: VBA: Bild ausblenden2.642ModeratorMartoeng04.07.06 11:05
Re: VBA: Bild ausblenden2.591SllnD04.07.06 11:14
Re: VBA: Bild ausblenden2.593SllnD04.07.06 11:17
Re: VBA: Bild ausblenden2.637ModeratorMartoeng04.07.06 11:37
Re: VBA: Bild ausblenden2.632SllnD04.07.06 11:54
Re: VBA: Bild ausblenden2.695SllnD04.07.06 12:00
Re: VBA: Bild ausblenden2.613ModeratorMartoeng04.07.06 16:29

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel