Die Community zu .NET und Classic VB.
Menü

VB 5/6-Tipp 0204: Bilder in Powerpoint einfügen

 von 

Beschreibung 

Hiermit können Bilder mittels Zwichenablage in Powerpoint eingebaut werden.

Schwierigkeitsgrad:

Schwierigkeitsgrad 2

Verwendete API-Aufrufe:

keine

Download:

Download des Beispielprojektes [148,64 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Bildfeld-Steuerelement "Picture1"
' Steuerelement: Beschriftungsfeld "Label1"
' Steuerelement: Beschriftungsfeld "Label2"
' Steuerelement: Beschriftungsfeld "Label3"


'Vielen Dank an Stephan Bernd

Private Sub Picture1_Click()
  Dim oPowerPoint As Object 'New PowerPoint.Application
  
  Set oPowerPoint = CreateObject("PowerPoint.Application")
  oPowerPoint.Visible = True

  Dim Opres As Object 'PowerPoint.Presentation
  Dim oSlide As powerpoint.Slide
  Dim sgBottom As Single
  
    'Open("C:\A_Arc\Dokuvorlage.ppt") 'Add
    Set Opres = oPowerPoint.Presentations.Add
  
    'Folgende Zeilen sind für bereits vorhandene Presentation
    'zählt die Slides kopiert das letzte Slide ( bei mir eine
    'leere Vorlage )fügt das neu kopierte Slide an letzte
    'Stelle und setzt die Zwischenablage in das vorletzte
    'Slide
  
  '  x = Opres.Slides.Count
  '  Opres.Slides.Item(x).Copy
  '  Opres.Slides.Paste
  '  Opres.Slides.Item(x).Shapes.Paste
  '  With Opres.Slides.Item(x).Shapes.Paste
  '    .Left = 50
  '    .Top = 200
  '    '             .Slides.Master.Width - 50
  '    .Width = Opres.Slides.Item(x).Master.Width - 90
  '  End With
  
  ' Hier gehts normal weiter
  ' (1 = 1 Slide)
    Set oSlide = Opres.Slides.Add(1, ppLayoutTitleOnly)
    Clipboard.Clear
    If TypeOf Screen.ActiveControl Is PictureBox Then
      Clipboard.SetData Screen.ActiveControl.Picture
    End If
    
    With oSlide.Shapes.Placeholders(1)
      With .TextFrame.TextRange
      .Text = "Viel Spass mit PowerPoint und VB6"
      .Font.Bold = True
      .ChangeCase ppCaseUpper
      End With
      sgBottom = .Top + .Height
    End With
    
    'Einfügen was in der Zwischenablage ist
    With oSlide.Shapes.Paste
      .Left = 160
      .Top = 200
      .Width = oSlide.Master.Width - 120
      .Height = 320
     '.Top = sgBottom + 40
     '.Height = oSlide.Master.Height - sgBottom + 240
     '.Left = oSlide.Master.Width / 2 - .Width / 2
    oPowerPoint.ActiveWindow.ViewType = ppViewSlideSorter
    End With
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Tipp-Kompatibilität:

Windows/VB-VersionWin32sWin95Win98WinMEWinNT4Win2000WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?

Ja, funktioniert!

Nein, funktioniert nicht bei mir!

VB-Version:

Windows-Version:

Ihre Meinung  

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 1 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.

Kommentar von geisel winfried am 09.01.2002 um 12:47

Wie kann ich Bilder von BMP auf JPEG umwandeln