Macro Part 1:

/run a,t,n="AudioOptionsSoundPanel",{"Sound","Music","Ambience","Dialog"},{}for i,v in pairs(t)do n[i]=_G[a]:CreateFontString()n[i]:SetFont("Fonts\\FRIZQT__.TTF",12,"OUTLINE")n[i]:SetPoint("CENTER",_G[a..v.."Volume"],"RIGHT",40,0)end print("P1 done")

Macro Part 2:

/run _G[a]:HookScript("OnUpdate",function()for i,v in pairs(t)do n[i]:SetText(string.format("%.2f%%",GetCVar("Sound_"..(v=="Sound"and"SFX"or v).."Volume")*100))end end)print("P2 done")