Cuestión : corregir sobresalen el objeto encajado en PowerPoint vía macro del PowerPoint

Hola los expertos,

I tienen un >Powerpoint de la " raya " del class= que los pasos a través de cada objeto seleccionado en una diapositiva para realizar “substituyan” procedimiento en las cajas de texto, en rejillas de los datos en gráficos y en objetos del arte de la palabra. el

Now, tengo que realizar el mismo tipo de función en un objeto encajado de Excel. Se da esta macro en Powerpoint, complica esto un pedacito para mí y no puedo imaginar absolutamente qué hacer. la definición del objeto del

What un poco hace yo necesita hacer para poder realizar el equivalente de: ¡el doble del
1. chasca encendido el objeto del sobresalir “lo activa " el
2. después realiza el equivalente .Select del “de ActiveCell.SpecialCells (xlLastCell)” el
3. después pasa cada célula entre “A1” y el “xlLastCell” para realizar una función del reemplazo y para hacer la validación tests.

I ha atado el código que estoy utilizando actual, el código soy el intentar creado seré colocado entre las dos filas” '************************ del

Thanks del * " para su ayuda! class= " lineNumbers " >

1 del >
Sub codeBody ChangeTagComplexe (StrRch del " prettyprint " del class= del id= " codeSnippet779242 " del >
 (de StrRch (CCC, 1)) entonces
                                    Si FrmTagRepl.CaseTrue = entonces verdad
                                        . Gama (“0” y CStr (lRow)). El valor = substituye (. Gama (“0” y CStr (lRow)). Valor, StrRch (CCC, 1), StrRch (CCC, 2))
                                    
                                        . Gama (“0” y CStr (lRow)). El valor = substituye (. Gama (“0” y CStr (lRow)). Valor, StrRch (CCC, 1), StrRch (CCC, 2), vbTextCompare)
                                    Terminar si
                                Terminar si
                            CCC siguiente
                        
                            Para CCC = 1 a 25
                                Si CStr "" del <> (de StrRch (CCC, 1)) entonces
                                    Si FrmTagRepl.CaseTrue = entonces verdad
                                        . Gama (Chr (96 + lCol) y CStr (lRow)). El valor = substituye (. Gama (Chr (96 + lCol) y CStr (lRow)). Valor, StrRch (CCC, 1), StrRch (CCC, 2))
                                    
                                        . Gama (Chr (96 + lCol) y CStr (lRow)). El valor = substituye (. Gama (Chr (96 + lCol) y CStr (lRow)). Valor, StrRch (CCC, 1), StrRch (CCC, 2), vbTextCompare)
                                    Terminar si
                                Terminar si
                            CCC siguiente
                        Terminar si
                   lRow siguiente
                lCol siguiente
            Extremo con
         índice de oSh.OLEFormat.DoVerb: =1
         'ActiveWindow.Selection.SlideRange.Shapes.SelectAll
            ActivePresentation.Save
            el 'extremo corrige el datagrid en gráfico
            oGraphChart.Application.Quit
        
        ElseIf (oSh.Type = msoTextBox u oSh.Type = msoPlaceholder u oSh.Type = 1) y (TypObj = 1 o TypObj = 3) entonces
            'corregir la caja de texto
            Para CCC = 1 a 25
                Si CStr "" del <> (de StrRch (CCC, 1)) entonces
                    Si FrmTagRepl.CaseTrue = entonces verdad
                        oSh.TextFrame.TextRange.Text = substituyen (oSh.TextFrame.TextRange.Text, StrRch (CCC, 1), StrRch (el CCC, 2))
                    
                        oSh.TextFrame.TextRange.Text = substituyen (oSh.TextFrame.TextRange.Text, StrRch (CCC, 1), StrRch (CCC, 2), el vbTextCompare)
                    Terminar si
                Terminar si
            CCC siguiente
        ElseIf oSh.Type = msoTextEffect y (TypObj = 1 o TypObj = 4) entonces
            Para CCC = 1 a 25
                Si CStr "" del <> (de StrRch (CCC, 1)) entonces
                    Si FrmTagRepl.CaseTrue = entonces verdad
                        oSh.TextEffect.Text = substituyen (oSh.TextEffect.Text, StrRch (CCC, 1), StrRch (el CCC, 2))
                    
                        oSh.TextEffect.Text = substituyen (oSh.TextEffect.Text, StrRch (CCC, 1), StrRch (CCC, 2), el vbTextCompare)
                    Terminar si
                Terminar si
            CCC siguiente
        ElseIf oSh.Type = 6 y (TypObj = 1) entonces
            '*********************************************
            'cifrar necesitado aquí corregir el objeto encajado de Excel
            '1: determinar la columna y la fila pasadas de la hoja activa
            '2: pasar cada célula y realizarse substituyen la función
            '*********************************************
        Terminar si
    Cc siguiente

Submarino del extremo
class= > " claro " de 

class= del 

Respuesta : corregir sobresalen el objeto encajado en PowerPoint vía macro del PowerPoint

El código antedicho se ha modificado para encontrar la columna pasada y la fila pasada en la hoja del sobresalir. Pero no podría encontrar el defination para la variable/el objeto below dentro del código que usted ha proporcionado.

FrmTagRepl

El resto del código se proporciona abajo:

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16:

Código para encontrar la columna pasada y la fila pasada: MaxRows = oSh.OLEFormat.Object.Sheets (1).Cells (oSh.OLEFormat.Object.Sheets (1).Cells.Rows.Count, 1).End (xlUp). Fila MaxColumns = oSh.OLEFormat.Object.Sheets (1).Cells (1, oSh.OLEFormat.Object.Sheets (1).Cells.Columns.Count). Extremo (xlToLeft). Columna LastCellAddress = oSh.OLEFormat.Object.Sheets (1).Cells.SpecialCells (xlCellTypeLastCell). Dirección '************************************************* '* el código para substituir valores en Embeded sobresale la hoja * '************************************************* TrgetRange dévil como Excel.Range TrgetRange dévil como Excel.Range Fijar TrgetRange = oSh.OLEFormat.Object.Sheets (1).Range (“A1: ” Y LastCellAddress) Para cada célula en TrgetRange Cell.Value = “el valor que usted quiere substituir por!” Después