title image


Smiley Änderung
Hallo,



du hast recht. Um die Bilder einzufügen, müssen die Rahmen selektiert werden. Das macht eine Änderung notwendig:







      

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 = "C:\Documents and Settings\...\My Documents\My Pictures\Bilder\Matthias4.JPG"

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: