¿Cómo agregar un cuadro combinado o un espacio de cuadro de lista para hacer referencia a datos de Excel integrados en una tabla PPT?
Atenuar Wb como objeto, Sh como objeto
Cuadro combinado secundario privado 1_Click()
Establecer WB = me. forma(1). Formato ole. El objeto 'me representa la diapositiva que se está reproduciendo.
set Sh = WB . hojas de cálculo(" hoja 1 ")
Rango de chelines("A10") = Yo. Cuadro combinado1. Valor
Conector final
Subcombobox privado 1 _ tengo foco()
atenuarme siempre
i. Cuadro combinado1. claro
Establecer WB = yo. forma(1). Formato ole. El objeto 'me representa la diapositiva que se está reproduciendo.
establezca Sh = WB . worksheets(" hoja 1 ")
Para i = 4 a 8
i. Cuadro combinado1. Agregar elemento Sh. Rango("A"ampI). Valor
Siguiente I
Conector final
También es necesario configurar Excel. Si tiene alguna pregunta, comuníquese conmigo por correo electrónico. estrellasdlg@hotmail.com