title image


Smiley Kommentare mit Bildhintergrund einfügen
Guten Morgen,



tut mir leid. Ich war gestern etwas im Stress und habe dir meine Testversion gepostet. So sollte es wieder für dich angepasst sein:







      

Sub Makro1()

Dim Zelle As Range

ReDim arrBereich(1)

Dim Datei As String, Ziel As String

Selection.Offset(0, 4).ClearComments

For Each Zelle In Selection

ReDim Preserve arrBereich(i)

arrBereich(i) = Zelle.Address

Datei = Range(arrBereich(i)).Offset(0, 1).Value

Ziel = Range(arrBereich(i)).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

.Comment.Shape.Select

End With

With Selection.ShapeRange

.ScaleWidth 0, 3, msoFalse, msoScaleFromTopLeft

.ScaleHeight 0, 8, msoFalse, msoScaleFromTopLeft

.IncrementTop 12#

.Fill.UserPicture Datei

End With

i = i + 1

Next

End Sub 



Code eingefügt mit Syntaxhighlighter 3.0




Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: