Új hozzászólás Aktív témák

• #32162 Fferi50 Topikgazda ipij #32158

  Új Válasz 2016-07-23 21:19:07 #32162

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz ipij #32158 üzenetére

  Szia!

  Sajnos ezt csak úgy tudod megoldani, ha minden alakzathoz rendelsz egy makrót, ami alapján fogod tudni az adott alakzat nevét.
  A közös makrót pedig a névvel paraméterezve hívod meg.
  Pl.
  Sub makro_teglalap1
makro_kozos "teglalap1"
End Sub

Sub makro_kozos(ByVal neve As String)
Select Case neve
Case Is = "teglalap1"
'ide jön amit csinálnia kell
Case Is = "valami mas........"
'ide jön amit csinálnia kell
End Select
End Sub

  Az egyenkénti makrót egyszer megírod, utána másolod és változtatod benne a neveket.

  Üdv.

Új hozzászólás Aktív témák