VB 5/6-Tipp 0204: Bilder in Powerpoint einfügen
von Stefan Bernd
Beschreibung
Hiermit können Bilder mittels Zwichenablage in Powerpoint eingebaut werden.
Schwierigkeitsgrad: | Verwendete API-Aufrufe: keine | Download: |
'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-Version | Win32s | Win95 | Win98 | WinME | WinNT4 | Win2000 | WinXP |
VB4 | |||||||
VB5 | |||||||
VB6 |
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