Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Automatische Anpassung der Bildgröße
zurück: Reinkopierte Zahlen lassen sich nicht bearbeiten weiter: Seitenumbruch korrigieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Reed
Gast


Verfasst am:
03. März 2010, 14:58
Rufname:

Automatische Anpassung der Bildgröße - Automatische Anpassung der Bildgröße

Nach oben
       Version: Office 2003

Hallo Zusammen,

ich suche nach eine praktischen Lösung Bilder unterschiedlichster Auflösungen auf eine feste Größe verzerrungsfrei zu verkleinern. Also beim Einfügen sollte das Bild in der richtigen (kleinen) Größe an der vorbestimmten Stelle stehen.

Mir ist bewusst, dass Excel kein Bildverarbeitungsprogramm ist, aber ich bin mit Software stark eingeschränkt (keine Installation möglich).
Falls es keine Möglichkeit diese Problem zu lösen, wäre das nett wenn ihr mir das sagt.


Gruß
Reed
werni
Solala


Verfasst am:
03. März 2010, 19:01
Rufname: werni
Wohnort: Ennenda GL

AW: Automatische Anpassung der Bildgröße - AW: Automatische Anpassung der Bildgröße

Nach oben
       Version: Office 2003

Hallo Reed

Der angefügte Code wird alle Bilder auf eine Grösse bringen, ohne seitenverhältnis Verlust. Auch Hoch- oder Breitformat spielt keine Rolle. Die Grösse in Punkten kannst du selber noch anpassen.

Code:
Sub AlleBilderSelbeGroesse()
    Dim objbild As Object
    For Each objbild In ActiveSheet.Shapes
        objbild.Select
            xhoehe = Selection.ShapeRange.Height
            xbreite = Selection.ShapeRange.Width
        If xhoehe > xbreite Then
            xfaktor = xhoehe / 150 'Die 150pt sind anzupassen
        Else
            xfaktor = xbreite / 150
        End If
        Selection.ShapeRange.Height = xhoehe / xfaktor
        Selection.ShapeRange.Width = xbreite / xfaktor
    Next objbild
End Sub

Gruss werni

_________________
"Die Summe aller Intelligenz auf Erden ist konstant, aber die Anzahl Individuen steigt."
. EINSTEIN
Reed
Gast


Verfasst am:
04. März 2010, 12:13
Rufname:


AW: Automatische Anpassung der Bildgröße - AW: Automatische Anpassung der Bildgröße

Nach oben
       Version: Office 2003

vielen Dank werni
Es funktioniert so wie ich es brauche.
Die passende Pixelanzahl eingetragen und es passt perfekt.

nochmals Danke

Gruß Reed
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Automatische Tabellenerweiterung/Dynamisches Diagramm 0 arabraB 2633 06. Feb 2008, 12:37
arabraB Automatische Tabellenerweiterung/Dynamisches Diagramm
Keine neuen Beiträge Excel Formeln: automatische Zuweisung von eindeutiger Identikikationsnummer 2 Eule 916 13. Jan 2008, 13:44
Eule automatische Zuweisung von eindeutiger Identikikationsnummer
Keine neuen Beiträge Excel Formeln: automatische Kopie einer bestehenden Excel Tabelle erstellen 1 Jürgus 1320 11. Dez 2007, 16:32
Gast automatische Kopie einer bestehenden Excel Tabelle erstellen
Keine neuen Beiträge Excel Formeln: Automatische Abfrage in 2 Dateien 6 Vatanile 799 23. Okt 2007, 08:16
Gast Automatische Abfrage in 2 Dateien
Keine neuen Beiträge Excel Formeln: Automatische Platzvergabe 2 Pebbles 485 29. Sep 2007, 11:07
Gast Automatische Platzvergabe
Keine neuen Beiträge Excel Formeln: Automatische Datum zuweisen mit einer deffinierten Zelle 6 eysman 3044 25. Jul 2007, 23:31
eysman Automatische Datum zuweisen mit einer deffinierten Zelle
Keine neuen Beiträge Excel Formeln: formeln kopieren ohne automatische anpasung 0 Michael123456 1596 17. Mai 2007, 22:20
Michael123456 formeln kopieren ohne automatische anpasung
Keine neuen Beiträge Excel Formeln: Autom. Anpassung der Bezüge beim Zeilen-Einfügen verhindern 4 bae02hvh 1829 09. Apr 2007, 16:53
bae02hvh Autom. Anpassung der Bezüge beim Zeilen-Einfügen verhindern
Keine neuen Beiträge Excel Formeln: Automatische Auflistung aller Zellen(die nicht leer sind) 2 alexburn 4030 07. März 2007, 13:54
Gast Automatische Auflistung aller Zellen(die nicht leer sind)
Keine neuen Beiträge Excel Formeln: Automatische Suche 12 real_fabi 716 09. Feb 2007, 16:40
Gast Automatische Suche
Keine neuen Beiträge Excel Formeln: Excel automatische Einfärbung (Ampel) 5 Tomlins 6540 29. Jan 2007, 16:14
ae Excel automatische Einfärbung (Ampel)
Keine neuen Beiträge Excel Formeln: automatische Berechnung stoppen 1 thalow 4267 07. Sep 2006, 08:51
myfake automatische Berechnung stoppen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP JavaScript