Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
140to144
140to144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bilder auf 70 % reduzieren

Bilder auf 70 % reduzieren
26.07.2002 13:04:34
Ben Schneider
Hallo.
ich will alle vorhandenen Bilder in einem Excel Datei mit einem VBA-Programm auf genau 70% reduzieren.
Kann mir jemand da weiterhelfen.
Wenn sie dabei das Programm mit Kommentaren bestücken würden, würde ich mich sehr freuen. Ich will ja das Programm auch nachvollziehen.
Ich bedanke mich vorab für die Mühe.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Bilder auf 70 % reduzieren
26.07.2002 13:41:17
Ralf Sögel
Was für Bilder sind das, BMP, GIF, JPG?
Re: Bilder auf 70 % reduzieren
26.07.2002 13:55:18
Ralf Sögel
unter der Voraussetzung, das es BMP usw. sind:

Option Explicit
Sub Bildgröße_ändern()
Dim Sh As Shape
Dim Faktor
Faktor = 0.7
''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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige