Thema Datum  Von Nutzer Rating
Antwort
21.12.2018 20:36:06 Christine
NotSolved
Blau Update: Problem bei For each Schleife für PPT
 21.12.2018 21:09:20 Christine
NotSolved
22.12.2018 15:25:36 Gast27881
NotSolved
22.12.2018 21:06:18 Christine
NotSolved
23.12.2018 11:08:03 Gast
NotSolved
23.12.2018 18:52:51 Christine
NotSolved
23.12.2018 21:15:43 Christine
NotSolved
24.12.2018 10:45:46 Gast70117
NotSolved
24.12.2018 11:16:55 Christine
NotSolved
25.12.2018 08:53:02 Gast70117
NotSolved
28.12.2018 17:08:23 Christine
Solved

Ansicht des Beitrags:
Von:
Christine		 Datum:
21.12.2018 21:09:20		 Views:
608		 Rating:
     
Antwort:
  Ja
Thema:
Update: Problem bei For each Schleife für PPT

Jetzt geht es bis zur Stelle "For Each sh In sl.Shapes", wo ich den Fehler "Typen unverträglich" erhalte. Wieso? Verstehe das nicht :/

?
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
Dim pp As Presentation
Dim sl As Slide
Dim sh As Shape
 
Dim strPOTX As String
Dim strPfad As String
Dim pptApp As Object
 
strPfad = "XL" 'Ordner der Vorlage
strPOTX = "XM"
 
Set pptApp = New PowerPoint.Application
 
Dim pptVorlage As String
pptVorlage = strPfad & strPOTX
 
Set pp = pptApp.Presentations.Open(pptVorlage)
 
 
 
For Each sl In pp.Slides
 
    For Each sh In sl.Shapes
 
        If sh.Type = msoLinkedOLEObject Then
 
            sh.LinkFormat.Update
 
        End If
 
    Next
Next
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
21.12.2018 20:36:06 Christine
NotSolved
Blau Update: Problem bei For each Schleife für PPT
 21.12.2018 21:09:20 Christine
NotSolved
22.12.2018 15:25:36 Gast27881
NotSolved
22.12.2018 21:06:18 Christine
NotSolved
23.12.2018 11:08:03 Gast
NotSolved
23.12.2018 18:52:51 Christine
NotSolved
23.12.2018 21:15:43 Christine
NotSolved
24.12.2018 10:45:46 Gast70117
NotSolved
24.12.2018 11:16:55 Christine
NotSolved
25.12.2018 08:53:02 Gast70117
NotSolved
28.12.2018 17:08:23 Christine
Solved