title image


Smiley Re: Das musst du in dein Makro1 einbauen. Wie sieht das aus, was ist das Ziel?
das hat mir mal einer hier im Forum geschrieben, aber will ihn nicht weiter nerven.



das Makro sieht so aus:



Sub Makro1()

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

ActiveCell.Offset(0, 4).Select

ActiveCell.ClearComments

With ActiveCell.AddComment

.Shape.Select

.Visible = True

End With

On Error Resume Next

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

Selection.ShapeRange.ScaleWidth 0, 3, msoFalse, msoScaleFromTopLeft

Selection.ShapeRange.ScaleHeight 0, 8, msoFalse, msoScaleFromTopLeft

Selection.ShapeRange.IncrementTop 12#

Selection.ShapeRange.Fill.UserPicture Datei

Exit Sub

End Sub





hab schon gehört das dieses ActiveCell das Problem ist.



Tausend danke ´für Tipps/Hilfe



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: