Een symbool plaatsen middels een macro

[Biers]

Hallo,

Normaal gesproken kun je middels Invoegen>Vormen kiezen uit een aantal standaard vormen. Nu heb ik zelf een aantal vormen gemaakt en wil deze middels een knop voorzien van een macro op een werkblad geplaatst krijgen. Is hier een oplossing voor.

Groeten,

Mark

 

[wiki]

Use Asc to get a character's ASCII code. Use Chr to convert an ASCII code into a character. 
Thanks to Adan Rivas 
 
 
 
Private Sub Command2_Click()
     'Code the character
     Label3 = Asc(Text1)
     'clears text box
     Text1 = ""
     ' adds the coded character to textbox (label3)
     LABEL6 = LABEL6 + "," + Label3
     ' set focus to textbox
     Text1.SetFocus
     'decodes the coded character
     Text2 = Text2 + Chr(Label3)
End Sub

Private Sub Command3_Click()
     'this part decodes the coded number
     Label3 = Text3
     Text3 = ""
     LABEL6 = LABEL6 + "," + Label3
     Text2 = Text2 + Chr(Label3)
     Text3.SetFocus
End Sub

http://www.ascii.cl/htmlcodes.htm

Volgens mij kun je hier iets mee.

gr Wim

 

[Biers]

Helaas, maar dit is niet wat ik zoek. Het gaat erom of ik bijv. een driehoek (als figuur en niet als character) middels een macro kan laten plaatsen in een werkblad.

Groeten,

Mark

 

[Wigi]

Bekijk de OnAction eigenschap eens, daarmee kan je opgeven welke macro uitgevoerd moet worden.

 

[Biers]

Oplossing

Ik ben er inmiddels uit. Middels onderstaand commando kan ik een object selecteren. Vervolgens kopieren en plakken.

ActiveSheet.Shapes("Picture 1").Select

In ieder geval bedankt.

Groeten

 

[Wigi]

Dan mag de vraag nog op opgelost gezet worden aub.