Fixieren von Shapes
11.12.2016 18:53:38
Shapes
ich füge Textboxen in mein Arbeitsblatt ein. Jede Textbox symbolisiert einen Datensatz und steht an einer bestimmten Position. Die Textbox kann man löschen und dementsprechend wird der entsprechende Datensatz gelöscht.
..
With mydoc.Shapes.AddTextbox(msoTextOrientationHorizontal, _
xcen + x * fak - buchst * (l + 1) / 2, ycen - y * fak - buchst, buchst * (l + 1), buchst * 2)
.Name = tx
.TextFrame.Characters.text = tx
.TextFrame.Characters.Font.Size = buchst
.TextFrame.VerticalAlignment = xlVAlignCenter
.TextFrame.HorizontalAlignment = xlVAlignCenter
.TextFrame.AutoSize = True
.TextFrame.MarginLeft = 0#
.TextFrame.MarginRight = 0#
.TextFrame.MarginTop = 0#
.TextFrame.MarginBottom = 0#
.Fill.Transparency = 1
.Line.Visible = msoFalse
.Placement = xlFreeFloating
.Locked = False
.ControlFormat.LockedText = True
.LockAspectRatio = msoTrue
End With
Die Shapes sollen also wählbar sein (zum Löschen), aber nicht in Größe und Position veränderbar sein. Mit "Arbeitsblatt schützen" könnte man das erreichen, aber dann sind die Shapes nicht mehr wählbar und löschbar.
Gibt es einen Dreh wie man Größe und Position fixieren kann?
Grüße