Thema Datum  Von Nutzer Rating
Antwort
Rot Dim ... as Shape ... funktioniert nicht mehr
27.12.2021 15:25:55 Michl
NotSolved
27.12.2021 15:54:17 xlKing
Solved
27.12.2021 16:03:01 Michl
NotSolved

Ansicht des Beitrags:
Von:
Michl
Datum:
27.12.2021 15:25:55
Views:
493
Rating: Antwort:
  Ja
Thema:
Dim ... as Shape ... funktioniert nicht mehr

Hallo,
ich benutze in Word folgendes Makro:

 

Sub Ausblenden()
Selection.Collapse Direction:=wdCollapseStart
Word.Application.ScreenUpdating = False

' ...

Dim i As Integer
Dim shP As Shape

For i = 1 To ActiveDocument.Shapes.Count
    For Each shP In ActiveDocument.Shapes
       If shP.Name = "Ausblenden" Then shP.Visible = False

    Next
Next i

Word.Application.ScreenUpdating = True
End Sub

 

Das Makro lief bis jetzt ganz gut. Nun wird aber folgende Fehlermeldung angezeigt:

Fehler beim Kompilierern: Ein Modul hat einen unzulässigen Typ. Markiert ist shP As Shape

 

Gibt es denn den Typ Shape nicht mehr? Kann mir hier jemand weiterhelfen? Vielen Dank im Voraus.


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:

 
 

  • 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 Dim ... as Shape ... funktioniert nicht mehr
27.12.2021 15:25:55 Michl
NotSolved
27.12.2021 15:54:17 xlKing
Solved
27.12.2021 16:03:01 Michl
NotSolved