单击标签时更改TextBox字体

Question

我最近正在为PowerPoint制作东西，我想这样做，所以当您单击“标签”时，它变成了Roboto字体，有什么想法吗？我实际上并不熟悉Macros