title image


Smiley So...


Hallo und viele Grüße!







' VBE, Menü Extras|Verweise:

' Microsoft Forms 2.0 Object Library



Sub a12()



Dim strText

Dim MyData





strText = ""

Set MyData = New DataObject

MyData.GetFromClipboard

strText = MyData.GetText(1)

If Selection.InlineShapes.Count <= 0 Then

MsgBox "Kein InlineShape markiert"

End

End If

Selection.InlineShapes(0).AlternativeText = strText



End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: