Using shapes as opposed CommandButtons

[ipbr21054]

Morning,
I always use active X controls but unable to get a code working with one.
If i use a shape then what i want to happens works.

My question is how do i go about taking code from Active X control & using it on a shape,or am i going to run into problems.


This works for me.

Sub test()
With ThisWorkbook
With .sheets(.sheets.Count)
.Shapes("Rectangle 1").Visible = msoFalse
.Shapes("Rectangle 2").Visible = msoFalse
.Shapes("Rectangle 3").Visible = msoFalse
End With
End With
End Sub

 

[Tupe77]

Dim Shape As Shape
For Each Shape In ActiveSheet.shapes
If Shape.Name <> "PrintGeneratedSheet" Then
Shape.Visible = False
End If
Next

 

[ipbr21054]

Nope that made all the shapes hidden

 

[Tupe77]

My apologies, I looked at your code and misread the question...

 

[Tupe77]

It seems impossible to give a comprehensive answer due to the properties of different ActiveX objects.

For example, Button, Shape, and CommandButton generally work the same way. You click and the macro starts.

The biggest (tiny) difference is that you have to define a macro to be executed for Button and Shape.
When creating a CommandButton, an empty macro is automatically created in the worksheet module.

 

[Tupe77]

Something like this...

1. Copy the ActiveX code.
2. Paste the copied code into the regular VBAProject module.
3. Rename Private Sub CommandButton1_Click() For example, Sub CopyINV_G13toDATA_A10()
4. Create a Shape
5. Shape Right Click -> Assign Macro
6. Select CopyINV_G13toDATA_A10
OR
7. Select New -> new Sub is created
AND
8. Add line: Call CopyINV_G13toDATA_A10
*. You can of course do step 7 and copy the AxtiveX code directly into the created Sub

 

[Tupe77]

You didn't ask this, but "I always use active X controls but unable to get a code working with one." which one active X controls doesn't work?
Does it belong to your "TEST FILE.xlsm" file?