BringToFront bei Shapes
Benjamin
ich habe ein Problem mit der Z-Odering bei Shapes: Ich erstelle zuerst Frames und anschliessend die zugehörigen Checkboxen. Im Entwurfsmodus ist alles ok, sobald ich den verlasse, liegen die Checkboxen allerdings hinter den Frames und sind nicht sichtbar.
Hat jemand von Euch eine Idee, woran es liegen kann?
Danke schon mal und Gruß,
benjamin
Hier der code-ausschnitt:
########################################################
' Erstellung eines Frames:
Set myFrame = ActiveWorkbook.Sheets("meta data map").OLEObjects.Add(classtype:="Forms.Frame.1", Link:=False, _
DisplayAsIcon:=False, Left:=(frameNum * 10), Top:=(frameNum * 20), Width:=250, _
Height:=250)
'
'
'
' Erstellung einer Checkbox:
Set BTN1 = ActiveWorkbook.Sheets("meta data map").OLEObjects.Add(classtype:="Forms.CheckBox.1", _
Left:=myFrame.Left + 10, Top:=myFrame.Top + (25 * buttonTop), Width:=190, Height:=25)
' in den Vordergrund bringen:
ActiveWorkbook.Sheets("meta data map").Shapes(BTN1.Name).Select
Selection.ShapeRange.ZOrder msoBringToFront