title image


Smiley Re: Text mit waagerechten Linien
Hallo Heike,das folgende Makro erledigt das:Sub Linie()'Horizontale Linien:Höhe = 0 'erste Linie bei 0 cmFor i = 1 To 26 '26 Linien ActiveDocument.Shapes.AddLine(72#, 68.4, 524.4, 68.4).Select With Selection .ShapeRange.Width = CentimetersToPoints(16) 'Breite: 16 cm .ShapeRange.Left = CentimetersToPoints(0) 'Links bei 0cm .ShapeRange.Top = CentimetersToPoints(Höhe) 'Vertikal immer im Abstand von Höhe End With Höhe = Höhe + 1 '1 cm AbstandNext'Senkrechte LinieActiveDocument.Shapes.AddLine(299.1, 71.25, 299.1, 766.65).SelectWith Selection .ShapeRange.Height = CentimetersToPoints(25) 'Höhe: 25 cm .ShapeRange.Left = CentimetersToPoints(8) 'Links bei 8 cm .ShapeRange.Top = CentimetersToPoints(0) 'Vertikal bei 0 cmEnd WithEnd SubViele Grüße,Jörg


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: