tutorials.de Buch-Aktion 05/2012
ERLEDIGT
NEIN
ANTWORTEN
4
ZUGRIFFE
1693
EMPFEHLEN
  • An Twitter übertragen
  • An Facebook übertragen
AUF DIESES THEMA
ANTWORTEN
  1. 14.10.02 15:51 #1
    Avatar von PatrickD
    PatrickD PatrickD ist offline Mitglied Silber
    Registriert seit
    Jan 2002
    Beiträge
    61
    Hallo ,

    weiß von Euch jemand wie man auf ein Bild in einem Word-Dokument per VBA zugreifen kann ?

    Das Bild (BMP-Datei) wurde per Einfügen > Grafik aus Datei in das Dokument kopiert.

    Dank schonmal im vorraus !

    Patrick
     
    Zitieren Zitieren
  2. 14.10.02 16:03 #2
    Dario Linsky Dario Linsky ist offline
    Registriert seit
    Nov 2001
    Ort
    Gießen
    Beiträge
    4.091
    experimentier doch einfach mal mit den objekt-bibliotheken von word rum, damit geht das garantiert.
     
    "You could say that I was too lazy to calculate and so I invented the computer." -- Konrad Zuse
    Zitieren Zitieren
  3. 14.10.02 19:17 #3
    Avatar von PatrickD
    PatrickD PatrickD ist offline Mitglied Silber
    Registriert seit
    Jan 2002
    Beiträge
    61
    Naja, sowas habe ich schon gemacht, aber dann
    entnervt aufgegeben.

    Wenn ich wenigstens eine Möglichkeit fände das, bzw.
    die Bilder als Objekt ansprechen zu können.

    Ich kann sie zwar aus der Tabelle des Doc's löschen
    (ActiveDocument.Tables(1).Cell(1,1) = "" od. so ähnlich),
    dann sind sie aber wech.
    Wenn das Doc dann geschlossen wird, für immer !

    Ich möchte die Bilder halt aus- und einblenden können.

    Gruß
     
    .:: Patrick ::.
    Zitieren Zitieren
  4. 14.10.02 19:34 #4
    Avatar von Thomas Lindner
    Thomas Lindner Thomas Lindner ist offline Mitglied Diamant
    Registriert seit
    Dec 2001
    Ort
    Schwarzenbek, Germany
    Beiträge
    5.022
    Setze doch per Grafikleiste die Tranparenz rauf (bzw. runter)....

    ' Makro aufgezeichnet am 14.10.2002 von Webcutdirektor'
    Selection.InlineShapes(1).Reset
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness -0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    Selection.InlineShapes(1).PictureFormat.IncrementBrightness 0.03
    End Sub
     
    Die Signatur befindet sich aus Platzgründen auf der Rückseite!
    Zitieren Zitieren
  5. 17.10.02 08:28 #5
    Avatar von PatrickD
    PatrickD PatrickD ist offline Mitglied Silber
    Registriert seit
    Jan 2002
    Beiträge
    61
    Hallo,

    Dein Vorschlag hat leider nicht funktioniert.
    Aber er hat mich auf die Idee gebracht die Bilder über die
    Shapes-Auflistung anzusprechen und dann per .VISIBLE einfach
    auszublenden.
    So funktionierts dann:

    ActiveDocument.Shapes(n).Select
    With Selection.ShapeRange(1)
    .Visible = msoFalse
    End With

    Danke.
     
    .:: Patrick ::.
    Zitieren Zitieren
« registrierung | SQL Abfrage in einem Datagrid anzeigen lassen »

Ähnliche Themen

  1. Word Dokument drucken und Word schließen
    Von InFlame im Forum Visual Basic 6.0
    Antworten: 4
    Letzter Beitrag: 27.07.11, 12:06
  2. Serienbrief in Word mit einer Access Abfrage inkl. Visual Basic -> Word streikt
    Von InFlame im Forum Office-Anwendungen
    Antworten: 1
    Letzter Beitrag: 25.01.08, 15:27
  3. Word - Textfluss um Gruppierungen//Alternative zu Word?
    Von HAL im Forum Office-Anwendungen
    Antworten: 1
    Letzter Beitrag: 27.12.05, 21:01
  4. WORD XP und WORD 2000 auf einem Rechner laufen lassen
    Von merti im Forum Office-Anwendungen
    Antworten: 2
    Letzter Beitrag: 27.02.05, 18:01
  5. VBA Makro von Word 6.0 auf Word 2000...
    Von maeaexx im Forum Visual Basic 6.0
    Antworten: 2
    Letzter Beitrag: 06.03.04, 12:57