Szia,
Egy modulból hozzáadtam a munkalaphoz egy alakzatot:
Sub Alakzat()
With ActiveSheet.Shapes.AddShape(msoShapeFlowchartProcess, 201.75, 159#, 72#, 48#)
.Name = "Negyzet"
End With
End Sub
A lényeg, hogy nevet adtam neki: "Negyzet"
Ezután a visual basic eszköztárról kiraktam egy checkbox-ot, és annak a programja:
Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
ActiveSheet.Shapes("Negyzet").Visible = True
ElseIf CheckBox1.Value = False Then
ActiveSheet.Shapes("Negyzet").Visible = False
End If
End Sub
Ha ki van pipálva, akkor látszik az alakzat, aha nincs akkor nem!
Erre gondoltál?
Üdv: Sznido