Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

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

0 leden en 1 gast bekijken dit topic.

Offline rdcoster

  • Ervaren lid
  • ***
  • Berichten: 274
  • 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é
Windows 10
Excel 2013

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • 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 :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline lommer

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 132
  • 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

  • Ervaren lid
  • ***
  • Berichten: 274
  • 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.
Windows 10
Excel 2013

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • 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 :)             

Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline rdcoster

  • Ervaren lid
  • ***
  • Berichten: 274
  • 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.
Windows 10
Excel 2013

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • 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 :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • 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 :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
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.

Offline rdcoster

  • Ervaren lid
  • ***
  • Berichten: 274
  • 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
Windows 10
Excel 2013

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: Knoppen (shapes) naam achterhalen
« Reactie #10 Gepost op: 14 januari 2019, 16:42:33 »
Ga naar Gegevens -> Gegevensvalidatie -> Tab invoerbericht.

 


www.combell.com