Help!

Problemen met uw pc? De vrijwilligers van Oplossing.be zoeken gratis met u mee! 8)

Meer weten over Oplossing.be?

Hoe stel ik een vraag?

Hulp bij posten

Recent

Auteur Topic: Knoppen (shapes) naam achterhalen  (gelezen 2052 keer)

0 leden en 1 gast bekijken dit topic.

Offline rdcoster

  • Volledig lid
  • **
  • Berichten: 105
  • Geslacht: Man
  • Oplossing.be
Knoppen (shapes) naam achterhalen
« Gepost op: 14 januari 2019, 11:13:32 »
Ik heb een tabblad met een aantal knoppen (shapes)
Ik wil één bepaalde verwijderen via VBAcode.

Hoe weet ik de naam van deze knop ?

Mvg
René

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.467
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Knoppen (shapes) naam achterhalen
« Reactie #1 Gepost op: 14 januari 2019, 11:22:44 »
Hallo rdcoster,

als je de knop selecteert, rechtsklikt en Eigenschappen kiest, dan zie je de (alfabetisch) heel bovenaan de naam staan bij (Name), meestal CommandButton1 of 2 of 3 enz.
In VBA ook rechtsklikken op de CommandButton, en kies eigenschappen.

Code om een CommandButton te verwijderen: (Excel werkt namelijk beter met variabelen als je met Shapes werkt)

Sub Knop1_Verwijderen()
Dim w As Worksheet
Set w = ActiveSheet
w.Shapes("CommandButton1").Delete 'naam van de knop aan te passen
End Sub

Bovenstaande code werkt voor ActiveX-besturingselementen.

:) SoftAid :)             
« Laatst bewerkt op: 14 januari 2019, 11:52:45 door SoftAid »
Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag op meerdere fora beantwoord.

Offline lommer

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 130
  • Geslacht: Man
Re: Knoppen (shapes) naam achterhalen
« Reactie #2 Gepost op: 14 januari 2019, 12:30:38 »
Benaming, herbenoemen of verwijderen van shape.
Standaard emailprogramma: Outlook Express
Standaard Operating System: Windows XP SP2
Standaard Browser:Internet Explorer 6

Offline rdcoster

  • Volledig lid
  • **
  • Berichten: 105
  • Geslacht: Man
  • Oplossing.be
Re: Knoppen (shapes) naam achterhalen
« Reactie #3 Gepost op: 14 januari 2019, 14:16:56 »
Hallo Softaid,

Bij het selecteren en rechtsklikken krijg ik geen eigenschappen. (wel  zie bijlage1)
Ik heb wel gemerkt dat de naam van de knop rechtsboven (boven de "A" kolom) verschijnt.

Ik werk met Excel 2007.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.467
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Knoppen (shapes) naam achterhalen
« Reactie #4 Gepost op: 14 januari 2019, 14:30:04 »
Hallo rdcoster,

Dat is een formulierknop.
Rechtsklik in de knop en rechtsklik dan op de gespikkelde buitenrand van de knop.
Klik dan op "Macro toewijzen".

Je ziet dan een lijst, waarin bovenaan de macro (bvb Knop1_Klikken) staat. De knop heet dan Knop1
De code is dan:
Sub Knop1_Verwijderen()
Dim w As Worksheet
Set w = ActiveSheet
w.Shapes("Knop1").Delete     'naam van de knop aan te passen
End Sub

:) SoftAid :)             

« Laatst bewerkt op: 14 januari 2019, 15:15:28 door SoftAid »
Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag op meerdere fora beantwoord.

Offline rdcoster

  • Volledig lid
  • **
  • Berichten: 105
  • Geslacht: Man
  • Oplossing.be
Re: Knoppen (shapes) naam achterhalen
« Reactie #5 Gepost op: 14 januari 2019, 14:53:51 »
Bij rechterklik op de knop krijg ik inderdaad 'Macro toewijzen' maar als daar reeds een macro aan toegewezen is komt blijkbaar de knopnaam niet te voorschijn.
« Laatst bewerkt op: 14 januari 2019, 14:59:04 door rdcoster »

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.467
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Knoppen (shapes) naam achterhalen
« Reactie #6 Gepost op: 14 januari 2019, 15:13:22 »
Je knop heet dan Nieuw_werkjaar volgens mij, of je moet de naam van de macro achteraf veranderd hebben.

Maar werk je met een Excel 2016 of 2018 ?
Heb je de knoppen gegroepeerd?

Ik krijg andere resultaten op mijn Excel 2007...  :-\

Ik zal me toch eens een nieuwe Excel moeten aanschaffen
Spijtig genoeg laten 2 Excel's zich niet samen installeren op 1 OS, dat houd me nog tegen...

:) SoftAid :)             
Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag op meerdere fora beantwoord.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.467
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Knoppen (shapes) naam achterhalen
« Reactie #7 Gepost op: 14 januari 2019, 15:26:43 »
Hallo rdcoster,

indien je de naam van de knop niet terug vindt, gebruik dan volgende macro, en verander de nummer van het .Item() en probeer de macro zo uit te voeren. Verwijderd hij de verkeerde knop, dan sluit je het werkblad zonder op te slaan?
Start het werkblad opnieuw maar verander het nummer in .Item.

Herhaal tot de juiste knop verdwijnt. Sla dan het werkboek pas op.

Sub Knop_Verwijderen()
Dim Shp As ShapeRange
Dim w As Worksheet
Set w = ActiveSheet
w.Shapes.Item(1).Delete
End Sub
     

:) SoftAid :)             
« Laatst bewerkt op: 14 januari 2019, 16:19:11 door SoftAid »
Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag op meerdere fora beantwoord.

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 365
  • Geslacht: Man
  • Oplossing.be
Re: Knoppen (shapes) naam achterhalen
« Reactie #8 Gepost op: 14 januari 2019, 16:14:20 »
@ rdcoster
Heb je toevallig meer dan een Excel bestand open staan?
@ SoftAid en Lommer als je geen gebruik maakt van het Option Explicit statement, hoef je de variabelen niet te declareren.
Met andere woorden, de Dim lijnen zijn niet nodig.
Groet, Philiep

Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

Offline rdcoster

  • Volledig lid
  • **
  • Berichten: 105
  • Geslacht: Man
  • Oplossing.be
Re: Knoppen (shapes) naam achterhalen
« Reactie #9 Gepost op: 14 januari 2019, 16:34:00 »
Wat het deleten van de knoppen betreft is mijn vraag opgelost.

Maar ik heb wel een ander hakkefietje: (mss moet ik daar een nieuw topic voor maken ??)

Ik heb bij een cel met keuzeknop ooit een label geplaatst en ik wil die nu weg maar weet niet hoe.
zie bijlage

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 365
  • Geslacht: Man
  • Oplossing.be
Re: Knoppen (shapes) naam achterhalen
« Reactie #10 Gepost op: 14 januari 2019, 16:42:33 »
Ga naar Gegevens -> Gegevensvalidatie -> Tab invoerbericht.
Groet, Philiep

Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

 


www.combell.com