WICHTIG: Der Betrieb von goMatlab.de wird privat finanziert fortgesetzt. - Mehr Infos...

Mein MATLAB Forum - goMatlab.de

Mein MATLAB Forum

  
Gast > Registrieren       Autologin?   

Partner:




Forum
      Option
[Erweitert]
  • Diese Seite per Mail weiterempfehlen
     


Gehe zu:  
Neues Thema eröffnen Neue Antwort erstellen

VBA Powerpoint Bild in spezifischen Shape einfügen
 

Jame
Forum-Anfänger

Forum-Anfänger

Beiträge: 32
Anmeldedatum: 20.01.21
Wohnort: ---
Version: ---
     Beitrag Verfasst am: 06.03.2023, 18:08     Titel: VBA Powerpoint Bild in spezifischen Shape einfügen
  Antworten mit Zitat      
Hallo zusammen,

ich suche eine Möglichkeit Bilder über VBA in PowerPoint einzufügen.
Google und alle Welt spricht von:
https://learn.microsoft.com/de-de/o.....erpoint.shapes.addpicture

Das funktioniert auch soweit. Problem ist nur, dass das Bild mehr oder weniger willkürlich eingefügt wird. Ich möchte auswählen können, WO in welchem Shape das Bild eingefügt werden soll.
Wie mache ich das?

Beste Grüße
Jame
Private Nachricht senden Benutzer-Profile anzeigen


Jame
Themenstarter

 Forum-Anfänger

Forum-Anfänger

Beiträge: 32
Anmeldedatum: 20.01.21
Wohnort: ---
Version: ---
     Beitrag Verfasst am: 07.03.2023, 12:33     Titel:
  Antworten mit Zitat      
natürlich geht das hier nicht
Code:

current_Powerpoint.Slides(1).Item(31).Shapes.Item(6).Select
current_Powerpoint.Slides(1).Item(31).Shapes.Item(6).Copy
current_Powerpoint.Slides(1).Item(31).Shapes.Item(5).Paste
 


aber das hier geht
Code:

current_Powerpoint.Slides(1).Item(31).Shapes.Item(6).Select
current_Powerpoint.Slides(1).Item(31).Shapes.Item(6).Copy
current_Powerpoint.Slides(1).Item(31).Shapes.Paste
 

damit liegt das Bild wieder irgendwo. Das soll es nicht!
Private Nachricht senden Benutzer-Profile anzeigen
 
Harald
Forum-Meister

Forum-Meister

Beiträge: 24.448
Anmeldedatum: 26.03.09
Wohnort: Nähe München
Version: ab 2017b
     Beitrag Verfasst am: 07.03.2023, 14:17     Titel:
  Antworten mit Zitat      
Hallo,

zwar keine direkte Antwort auf die Frage, aber eventuell eine Alternative: hast du es mal mit der Funktionalität von MATLAB Report Generator versucht?

Grüße,
Harald
_________________

1.) Ask MATLAB Documentation
2.) Search gomatlab.de, google.de or MATLAB Answers
3.) Ask Technical Support of MathWorks
4.) Go mad, your problem is unsolvable ;)
Private Nachricht senden Benutzer-Profile anzeigen
 
Jame
Themenstarter

 Forum-Anfänger

Forum-Anfänger

Beiträge: 32
Anmeldedatum: 20.01.21
Wohnort: ---
Version: ---
     Beitrag Verfasst am: 07.03.2023, 14:58     Titel:
  Antworten mit Zitat      
Auf die Präsentation greifen diverse Leute zu und mit Power Point kann jeder umgehen.

Es muss doch möglich sein ein bestimmtes Bild an eine bestimmte Position in PowerPoint einzufügen bzw. einem bestimmte Shape zuzuteilen.

Wenn ich mit der Maus ein Bild kopiere und in PowerPoint ein Shape selektiere und rechts klicke "einfügen" geht es doch auch.
Im Hintergrund wird doch auch nur VBA ausgeführt.
Private Nachricht senden Benutzer-Profile anzeigen
 
Harald
Forum-Meister

Forum-Meister

Beiträge: 24.448
Anmeldedatum: 26.03.09
Wohnort: Nähe München
Version: ab 2017b
     Beitrag Verfasst am: 07.03.2023, 17:39     Titel:
  Antworten mit Zitat      
Hallo,

was ich meinte ist: die PowerPoint-Präsentation mit MATLAB Report Generator befüllen.

Möglich ist es sicher, und vermutlich auch nur eine Zeile. Das Problem in VBA ist halt, auf diese eine Zeile zu kommen. Da bist du vermutlich inzwischen weiter als ich.

Grüße,
Harald
_________________

1.) Ask MATLAB Documentation
2.) Search gomatlab.de, google.de or MATLAB Answers
3.) Ask Technical Support of MathWorks
4.) Go mad, your problem is unsolvable ;)
Private Nachricht senden Benutzer-Profile anzeigen
 
Busmaster
Forum-Anfänger

Forum-Anfänger

Beiträge: 16
Anmeldedatum: 05.08.09
Wohnort: Dresden
Version: ---
     Beitrag Verfasst am: 08.03.2023, 18:28     Titel:
  Antworten mit Zitat      
Hallo,

Ich habe solche Sachen mit VBA in Powerpoint gemacht.
Die Routinen habe ich mir aus dem iNet zusammengestoppelt:
Es gibt offenbar Unterschiede (hängt auch von der PPT Version ab)

A) Einfügen aus Datei
Schritt 1:
Code:
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:=vrtSelectedItem, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=0#, Top:=0#).Select
 

Hier kann die Position agegeben werden, aber nicht die gewümschte Bildgröße
Schritt 2:
Code:
ImageW = ActiveWindow.Selection.ShapeRange.Width
ImageH = ActiveWindow.Selection.ShapeRange.Height
If (ImageH > 0) And (ImageW > 0) Then
   With ActiveWindow.Selection.ShapeRange
      ImageR = ImageH / ImageW
      .Width = WidthX * CmPoints      'WidthX: gewünschte Bildbreite
      .Height = .Width * ImageR
      .Left = 0#            ' gewünschte Position
      .Top = 0#            ' gewünschte Position
      .Title = ImageTitle
   End With
End If


B) Einfügen aus der Zwischenablage
http://www.vbaexpress.com/forum/sho.....h-set-object-pastespecial
https://www.experts-exchange.com/qu.....at-specific-location.html

Schritt 1:
Code:

    Set myShapeRange = ActiveWindow.Selection.SlideRange(1).Shapes.PasteSpecial   ' ohne Vorzugsformat; auch für Text
    On Error GoTo paste_error
    Set myShape = myShapeRange(myShapeRange.Count)


Schritt 2: Danach wird die Bildgröße und -position angepasst
Code:
With myShape
   ImageR = ImageH / ImageW
   .Width = WidthX * CmPoints      'WidthX: gewünschte Bildbreite
   .Height = .Width * ImageR
   .Left = 0#            ' gewünschte Position
   .Top = 0#            ' gewünschte Position
   .Title = ImageTitle
End With

Diese Befehle müssten in den Matlab-Aufruf übersetzt werden...
Private Nachricht senden Benutzer-Profile anzeigen
 
Jame
Themenstarter

 Forum-Anfänger

Forum-Anfänger

Beiträge: 32
Anmeldedatum: 20.01.21
Wohnort: ---
Version: ---
     Beitrag Verfasst am: 10.03.2023, 12:48     Titel:
  Antworten mit Zitat      
hey hey Smile

vielen Dank schon mal für deine Antworten. Zu dem

1. Punkt.
Also an sich kann ich die Position damit wählen, aber ich meinte nicht die Position direkt über Bildpunkte, sondern über den Index die Shapenummer auswählen.
Das würde so eigentlich gehen...
Code:

ppt.ActiveWindow.Selection.SlideRange.Shapes.Item(2).AddPicture('...test.png', 'msoFalse','msoTrue',0,0,[],[]).Select;
 

Allerdings tritt dann die Fehlermeldung auf
Undefined function 'AddPicture' for input arguments of type 'Interface.91493479_5A91_11CF_8700_00AA0060263B'

Die Idee ist, dass die Präsentation bei nächsten Durchlauf die Grafiken aktualisiert werden und ich über den Index die Bilddatein zuordnen kann.

2. Punkt Ist so wie es aussieht genauso das gleiche Problem wie bei Punkt 1, dass es absolut angegeben wird, aber nicht über den Index des Shapes.


Bemerkung: Eine sehr hässliche und nicht akeptable Alternative wäre sich das Layout der ensprechenden Folie zu kopieren --> eine neue Folie mit diesem Layout einfügen-->alle nicht benötigten Shapes löschen-->Bild über AddPicture einfügen-->Bild kopieren und in ensptrechende Folie einfügen-->Bil befindet sich an richtiger Stelle bzw. Shape--> zustäzliche "Hilfsfolie" wieder löschen.
Bei 100 von Bildern wird das sehr lange dauern und ist eine sehr unsaubere Lösung.
Private Nachricht senden Benutzer-Profile anzeigen
 
Neues Thema eröffnen Neue Antwort erstellen



Einstellungen und Berechtigungen
Beiträge der letzten Zeit anzeigen:

 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 posten
Du kannst Dateien in diesem Forum herunterladen
.





 Impressum  | Nutzungsbedingungen  | Datenschutz | FAQ | goMatlab RSS Button RSS

Hosted by:


Copyright © 2007 - 2024 goMatlab.de | Dies ist keine offizielle Website der Firma The Mathworks

MATLAB, Simulink, Stateflow, Handle Graphics, Real-Time Workshop, SimBiology, SimHydraulics, SimEvents, and xPC TargetBox are registered trademarks and The MathWorks, the L-shaped membrane logo, and Embedded MATLAB are trademarks of The MathWorks, Inc.