title image


Smiley Re: Top-, Left- und Width-Eigenschaften ausnutzen
Was wolltest du mir jetzt damit sagen? Dass die Textausrichtung auch in das Makro soll? Dann so:



Sub bild_einfuegen()

Dim c As Range

Set c = ActiveCell

c = Date

c.HorizontalAlignment = xlLeft

ActiveSheet.Pictures.Insert( _

"C:\Documents and Settings\DEHC5547\My Documents\My Pictures\c1.gif").Select

Selection.ShapeRange.Left = c.Offset(0, 1).Left - Selection.ShapeRange.Width

Selection.ShapeRange.Top = c.Top

c.Select

End Sub
Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: