Hallo,
noch eine Information: Falls Office 365 aus der Microsoft Cloud aufgerufen werden sollte, kann es sein, dass hier bereits die Version 2016 zum Einsatz kommt.
Das würde erklären, warum es zu abweichenden Verhalten kommt.
Man kann es jedoch leicht herausfinden:
? Application.Version
Dieser Befehl zeigt im Direktbereich des VBA-Editors eine Zahl an.
15.0 steht für Office 2013
Falls in Office 365 eine andere Versionsnummer angezeigt werden sollte, muss im VBA-Code die Version abgefragt und abweichende Methoden angewandt werden.
Beispiel:
Sub DeleteLastSelectedShape()
Dim iShCnt As Integer
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"
' ...
Case Else
' ...
End Select
End Sub
So kann man auf unterschiedliche Versionen seinen Code korrekt ausführen lassen.
LG, BigBen
|