title image


Smiley Kommentare einfügen und Größe anpassen per VBA
Hallo,



versuch es mal so:







      

Sub Makro1()

Dim Zelle As Range, Ziel As String

Dim Datei As String

For Each Zelle In Selection

Datei = Zelle.Offset(0, 1).Value

Ziel = Zelle.Offset(0, 4).Address

With Range(Ziel)

.ClearComments

.AddComment

.Comment.Visible = True

On Error Resume Next

'hier wird die Größe des Kommentarfeldes verändert, und etwas nach unten geschoben

With .ShapeRange

.ScaleWidth 0, 3, msoFalse, msoScaleFromTopLeft

.ScaleHeight 0, 8, msoFalse, msoScaleFromTopLeft

.IncrementTop 12#

.Fill.UserPicture Datei

End With

End With

Next Zelle

End Sub 



Code eingefügt mit Syntaxhighlighter 3.0





Habe ich dich da richtig verstanden?
Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: