Rahmen von Tabellen in Word können lt. Drop-Down-Liste nur maximal 6 Punkt breit sein.
Gibt es eine Möglichkeit, auch breitere Rahmen zu erzeugen?
hi
das einzige was mir da im Moment einfällt ist in jede Zelle eine zweite(dritte, vierte…) Tabelle (mit einer Zelle) einzufügen. den Abstand zum Rand auf Null stellen und dann hat man optisch einen dickeren Rahmen.
…lux
Rahmen von Tabellen in Word können lt. Drop-Down-Liste nur
maximal 6 Punkt breit sein.
Gibt es eine Möglichkeit, auch breitere Rahmen zu erzeugen?
Hallo Martinus, Option Explicit
’
Sub Demo()
Dim shp As Word.Shape, S As Shape, Zei As Integer, Spa As Integer
Application.ScreenUpdating = False
On Error GoTo Hell
For Each S In ActiveDocument.Shapes
S.Delete
Next S
For Spa = 0 To 3
For Zei = 0 To 4
Set shp = ActiveDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
Left:=10, Top:=10, Width:=10, Height:=10)
With shp
.Name = „TB_“ & Spa + 1 + Zei * 4
.LockAnchor = True
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
.LockAspectRatio = False
.Top = CentimetersToPoints(2 + Zei * 2)
.Left = CentimetersToPoints(2 + Spa * 3.5)
.Width = CentimetersToPoints(3.5)
.Height = CentimetersToPoints(2)
.Line.Weight = 30
.TextFrame.TextRange.Text = "Zelle: " & Chr(65 + Spa) & Spa + 1 + Zei * 4
End With
Next Zei
Next Spa
Hell:
Application.ScreenUpdating = True
End Sub