Sznida Creative Commons License 2011.02.18 0 0 14055

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

 

Előzmény: kelan (14053)