Thema Datum  Von Nutzer Rating
Antwort
06.04.2017 07:24:11 Stephan
NotSolved
06.04.2017 15:22:26 BigBen
NotSolved
06.04.2017 16:39:51 Stephan
NotSolved
07.04.2017 15:44:53 BigBen
NotSolved
08.04.2017 22:12:57 Stephan
NotSolved
09.04.2017 09:10:12 BigBen
NotSolved
09.04.2017 09:13:36 BigBen
NotSolved
09.04.2017 09:24:49 BigBen
NotSolved
09.04.2017 10:18:55 Gast18830
NotSolved
Blau Selection.ShapeRange(2).Delete: unterschiedlich in PPT 2013 und 365
 09.04.2017 10:29:16 BigBen
NotSolved
09.04.2017 21:42:03 Stephan
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
09.04.2017 10:29:16		 Views:
540		 Rating:
     
Antwort:
  Ja
Thema:
Selection.ShapeRange(2).Delete: unterschiedlich in PPT 2013 und 365

Hallo,

eventuell hilft dieser Code weiter?

Sub DeleteLastSelectedShape()
    Dim iShCnt As Integer
    Dim rng As ShapeRange
    Select Case Application.Version
        Case "15.0"
            iShCnt = ActiveWindow.Selection.ShapeRange.Count
            If iShCnt > 0 Then
                ActiveWindow.Selection.ShapeRange(iShCnt).Delete
            End If
        Case "16.0"
            Set rng = ActiveWindow.Selection.ShapeRange
            iShCnt = rng.Count
            If iShCnt > 0 Then
                ActiveWindow.Selection.ShapeRange(iShCnt).Delete
                rng.Select
            End If
        Case Else
            ' ...
    End Select
End Sub

Ich nehme an, dass in der Version 2016 Application.Version den Wert "16.0" ausgibt. Bei Bedarf muss die Case-Anweisung angepasst werden.

Kurze Erläuterung: Die Markierung wird in der Variable rng gespeichert. Nachdem Löschen eines Shapes wird die Markierung wieder gesetzt.

In Office 2013 funktioniert dieses Verfahren fehlerfrei.

LG, BigBen

 

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
06.04.2017 07:24:11 Stephan
NotSolved
06.04.2017 15:22:26 BigBen
NotSolved
06.04.2017 16:39:51 Stephan
NotSolved
07.04.2017 15:44:53 BigBen
NotSolved
08.04.2017 22:12:57 Stephan
NotSolved
09.04.2017 09:10:12 BigBen
NotSolved
09.04.2017 09:13:36 BigBen
NotSolved
09.04.2017 09:24:49 BigBen
NotSolved
09.04.2017 10:18:55 Gast18830
NotSolved
Blau Selection.ShapeRange(2).Delete: unterschiedlich in PPT 2013 und 365
 09.04.2017 10:29:16 BigBen
NotSolved
09.04.2017 21:42:03 Stephan
NotSolved