Estou tentando exportar todos os objetos selecionados em pdf.
=======================================
Sub exportar_selecionado()
Dim sr As ShapeRange, sel As ShapeRange
Dim s As Shape
Dim expflt As ExportFilter
Dim pth$, imgpath$, sh_name$, dname$, pname…