Thema Datum  Von Nutzer Rating
Antwort
Rot Shape (Bild) in den Hintergrund
 09.10.2018 20:50:25 Lena Schmidt
Solved
10.10.2018 00:27:02 Gast29246
NotSolved
10.10.2018 07:09:09 Lena Schmidt
NotSolved

Ansicht des Beitrags:
Von:
Lena Schmidt		 Datum:
09.10.2018 20:50:25		 Views:
1338		 Rating:
     
Antwort:
 Nein
Thema:
Shape (Bild) in den Hintergrund

Hallo,

ich programmiere gerade ein Makro in den automatisch Bilder in verschiedenen Powerpoint Folien eingefügt werden, 

allerdings verdecken die Bilder Textfelder und Formen.

Mit welchem Code schaffe ich es die Bilder in den Hintergrund zu setzen und wo genau muss ich diesen einbauen?

 

 

Hier mein Code:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Bild ()
 
    Dim objShape As Shape, objSlide As Slide
 
    Dim Auswahl As Variant
 
    Dim i As Integer
 
 
    Set objSlide = ActivePresentation.Slides(2)
 
    With Application.FileDialog(msoFileDialogFilePicker)
 
        .Title = "Bitte Grafik auswählen"
 
        .InitialFileName = "C:\Windows\Benutzer\Anlagen\Bild1" 
 
        If .Show = -1 Then
 
            Auswahl = .SelectedItems(1)
        Else
 
            Exit Sub
 
        End If
 
    End With
 
    
 
    Set objShape = objSlide.Shapes.AddPicture(FileName:=Auswahl, LinkToFile:=msoFalse, _
 
SaveWithDocument:=msoTrue, _
 
            Left:=20, Top:=120, Width:=-1, Height:=-1)  'Position'
 
    With objShape
 
        .LockAspectRatio = msoTrue
 
        If .Height > 30 Then    'Höhe'
 
            .Height = 300
 
        End If

 

Dankeschön für eure Hilfe :)

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Shape (Bild) in den Hintergrund
 09.10.2018 20:50:25 Lena Schmidt
Solved
10.10.2018 00:27:02 Gast29246
NotSolved
10.10.2018 07:09:09 Lena Schmidt
NotSolved