Assign potential on Sheet via VBA

If you place a Mastershape on a visiosheet, all potentials get lost. (See EBDN1.png). Via Drag and Drop you can assign the potential , in this case "Cooling Air" (See EBDN2.png).

I want to assign the potential automatically with vba.

Could you please show me how or send me a code example.