Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
140to144
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
140to144
140to144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bilder auf 75% einstellen

Bilder auf 75% einstellen
26.07.2002 13:55:46
Wolfgang Weber
Hallo,
Ich habe ein Word - Dokument mit vielen Bildern. Die Bilder werden aber traurigerweise in höheren Prozentgrößen angezeigt (in etwa 200% Höhe, 200% Breite). Nun brauche ich einen Makro, das automatisch die Größe auf 75% einstellt. Dabei ist es wichtig, dass die Höhe und Breite auf 75% gestellt wird.

Danke für die Hilfe.
Wolfgang

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Bilder auf 75% einstellen
26.07.2002 14:00:46
Ralf Sögel
Option Explicit
Sub Bildgröße_ändern()
Dim Sh As Shape
Dim Faktor
Faktor = 0.75
''Für jedes Bild im Blatt
For Each Sh In ActiveSheet.Shapes
''Typ 13 sind Bilder(BMP,GIF,JPG usw.)
If Sh.Type = 13 Then
''Seitenverhältnis sperren
Sh.LockAspectRatio = msoTrue
''Breite mal Faktor
Sh.Width = Sh.Width * Faktor
End If
Next
End Sub
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige