title image


Smiley Re: Dann so...


Sub BoxenAusschalten()

Dim i As Integer



For i = 1 To 15

With ActiveDocument.InlineShapes(i).OLEFormat.Object

.Locked = True

.SpecialEffect = 0

.ShowDropButtonWhen = 0

End With



Next

End Sub




Gruesse

Alexandra



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: