Hej
Jo det går att lösa med kod. Om du har valt vanliga figurer att koppla makron till istället för knappar från utvecklarfliken så fungerar koden du hittar längre ned. Ska placeras i varje mall. Har du activex knappar så går det att lösa det med, spela in makro när du väljer en sådan knapp, så du vet vad objektet heter, och därmed vad samligen heter. Smartast hade dock varit att göra allt i kod, dvs kopiering av kod och mall till ny destination. Har dessvärre inte tid till att hjälpa dig med den biten :/
Option Explicit
Sub test()
Dim shp As Shape, str As String
Dim lnghtToRead As Long
For Each shp In ActiveSheet.Shapes
If shp.OnAction <> "" Then
str = shp.OnAction
lnghtToRead = Len(str) - InStr(str, "!")
shp.OnAction = str
End If
Next shp
End Sub