MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft PowerPoint
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 14.02.2002, 10:41   #1
Michael Gertz
Neuer Benutzer
Neuer Benutzer
Standard PPT/VBA: Originalgröße einer eingefügten Graphik

Hallo liebe PPT-Interessierte,

meine Problemstellung lautet: Ich möchte alle JPG-Dateien in einem Verzeichnis in eine PPT-Datei (97) einfügen (pro Graphik eine Seite). Nutzung z. B. für abfotographierte Flipcharts im Rahmen einer Projektsitzung. Das Einfügen gelingt mir bereits, aber in VBA muss im AddPicture-Befehl die Größe angegeben werden. Dadurch gehen die Proportionen verloren. Die Originalgröße kann ich zwar manuell unter "Graphik formatieren" zurücksetzen, die möchte ich aber im Makro tun, was mir nicht gelingt.

Wer weiß (welchen) Rat?

Schönen Gruß

Michael

__________________

Michael Gertz
Michael Gertz ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.02.2002, 18:54   #2
SJH
MOF User
MOF User
Standard

Hallo Michael!

Die Befehle dafür dürften ca. so lauten.
Dabei muß das Bild schon zuvor schon ausgewählt sein.

With ActiveWindow.Selection.ShapeRange
.ScaleHeight 1#, msoTrue, msoScaleFromTopLeft
.ScaleWidth 1#, msoTrue, msoScaleFromTopLeft
End With

lg
Stefan

__________________

lg
Stefan
SJH ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:56 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.