powerpoint blider stretchen

Moderator: ModerationP

powerpoint blider stretchen

Beitragvon csost » 25. Sep 2020, 19:38

Hi,
vorneweg sage ich gleich, dass ich Laie bin. Mit WIN7 konnte ich mit diesem Code unten Bilder aus Excelbereichen problemlos in PPP spielen und entsprechen skalieren:

Set Datenbereich = Steuerung.Range(Cells(1, 1), Cells(Steuerung.Cells(Rows.Count, 1).End(xlUp).ROW - 2, 1))
i = 3

For Each Datenzelle In Datenbereich
Range(Steuerung.Cells(i, 1).Value).CopyPicture
'DoEvents wg. Laufzeitfehler in Office 2013/Win7
DoEvents

PPDat.Slides(Steuerung.Cells(i, 2).Value).Shapes.Paste

With PPDat.Slides(Steuerung.Cells(i, 2).Value).Shapes(PPDat.Slides(Steuerung.Cells(i, 2).Value).Shapes.Count)
.Name = Steuerung.Cells(i, 1).Value
.Top = Steuerung.Cells(i, 3).Value
.Left = Steuerung.Cells(i, 4).Value
.LockAspectRatio = msoTrue
.Height = .Height / Cells(i, 9).Value

End With
i = i + 1
Next

Ich Vermute nun, dass seit WIN10 hier etwas nicht mehr ganz rund läuft. Linksbündig kommen sie noch richtig an. Aber leider verzieht es seit WIN 10 diese Bilder. Siekommen gestaucht rüber und müssten in die Breite nach rechts gezogen werden. Wie lautet der Befehl nach rechts zu verbreitern (nicht nach rechts und gleichzeitig nach unten zu sklaieren)

Das wäre wirklich toll mir hier zu helfen. Gruß
Christoph
csost
 

Re: powerpoint blider stretchen

Beitragvon CaBe » 22. Okt 2020, 18:03

Hallo Christoph,

ohne es ausprobiert zu haben, aber mit dem .Width-Kommando kannst du doch eine Breite vorgeben:
Code: Alles auswählen
Set Datenbereich = Steuerung.Range(Cells(1, 1), Cells(Steuerung.Cells(Rows.Count, 1).End(xlUp).ROW - 2, 1))
i = 3

For Each Datenzelle In Datenbereich
  Range(Steuerung.Cells(i, 1).Value).CopyPicture
  'DoEvents wg. Laufzeitfehler in Office 2013/Win7
  DoEvents

  PPDat.Slides(Steuerung.Cells(i, 2).Value).Shapes.Paste
  With PPDat.Slides(Steuerung.Cells(i, 2).Value).Shapes(PPDat.Slides(Steuerung.Cells(i, 2).Value).Shapes.Count)
    .Name = Steuerung.Cells(i, 1).Value
    .Top = Steuerung.Cells(i, 3).Value
    .Left = Steuerung.Cells(i, 4).Value
    ' .LockAspectRatio = msoTrue ' Achtung: auskommentiert
    .Height = .Height / Cells(i, 9).Value
    .Width = .Width / Cells(i,9).Value ' hinzugefügt
  End With
  i = i + 1
Next

Probier's mal aus, ob's besser wird.
Freundlichst
Carsten

Keine Antwort wäre wirklich schade! Windows 10 Pro, Office 2016 Pro Deutsch, manchmal MS 365 Pro Englisch
Jede Änderung meiner Beiträge durch andere Benutzer möge bitte mit Grund und Namen gekennzeichnet werden.
Benutzeravatar
CaBe
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 5970
Registriert: 06. Apr 2005, 09:20
Wohnort: Bremen

Re: powerpoint blider stretchen

Beitragvon krisma » 06. Jan 2021, 02:58

Hallo, das habe ich auch gemacht. vielen dank für deine antwort.
krisma
Neuling
 
Beiträge: 1
Registriert: 06. Jan 2021, 02:54


Zurück zu PowerPoint Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast

cron