Thema Datum  Von Nutzer Rating
Antwort
24.06.2019 10:37:10 Stefan
NotSolved
Blau mit VBA alle PowerPoint Slides ansprechen
 24.06.2019 10:39:05 Stefan
NotSolved

Ansicht des Beitrags:
Von:
Stefan		 Datum:
24.06.2019 10:39:05		 Views:
603		 Rating:
     
Antwort:
  Ja
Thema:
mit VBA alle PowerPoint Slides ansprechen
?
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
Hier nochmal der Code richtig angezeigt... hab ich vorher nicht gesehen, sorry.
 
 
Sub Laufwerkspfad_einfügen() 'InsertPath
Dim PathAndName As String
 
'Pfad und Dateiname ausgeben
PathAndName = ActivePresentation.Path & "\" & _
ActivePresentation.Name
 
'Anordnung der Textbox auf der Seite
'1.Zahl: links vom Rand, 2.Zahl: Höhe von oben, 3.Zahl: Breite der Textbox, 4.Zahl: Höhe der Textbox
Set myDocument = ActivePresentation.Slides.Range '(1)
With myDocument.Shapes _
.AddShape(msoShapeRectangle, 0, 520, 960, 20).TextFrame
 
'Transparenz der Textbox: 1 = transparent, 0 = nicht transparent, 0.5 = halb transparent
.Parent.Line.Visible = msoFalse
.Parent.Fill.Transparency = 1
 
'Inhalt der Textbox
.TextRange.Text = PathAndName
 
'Schriftname
.TextRange.Font.Name = "Arial"
 
'Schriftgröße
.TextRange.Font.Size = 10
 
'Textfarbe (0, 0, 0) = schwarz, (255, 255, 255) = weiß
.TextRange.Font.Color = RGB(0, 0, 0)
 
'Abstand des Textes vom Rand der Textbox
.MarginBottom = 10
.MarginLeft = 10
.MarginRight = 10
.MarginTop = 5
 
End With
End Sub

 

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
24.06.2019 10:37:10 Stefan
NotSolved
Blau mit VBA alle PowerPoint Slides ansprechen
 24.06.2019 10:39:05 Stefan
NotSolved