Questione : pubblicare eccellono l'oggetto incluso in PowerPoint via la macro di PowerPoint

Ciao gli esperti, il

I hanno un >Powerpoint " della sottolineatura " del class= che i passaggi attraverso ogni oggetto selezionato su uno scorrevole per effettuare “sostituiscono„ la procedura sulle caselle di testo, sulle griglie di dati nei grafici e sugli oggetti di arte di parola.

Now, devo effettuare lo stesso tipo di funzione su un oggetto incluso di Excel. È dato questa macro in Powerpoint, complica questo una punta per me e non posso abbastanza calcolare fuori che cosa fare. il genere del

What di definizione dell'oggetto fa io deve fare per potere effettuare l'equivalente di: il doppio del
1. scatta sopra l'oggetto di supremazia “lo attiva "
2. quindi effettua l'equivalente “del .Select di ActiveCell.SpecialCells (xlLastCell)„
3. quindi supera ogni cellula fra “A1„ e “il xlLastCell„ per effettuare una funzione di sostituzione e per fare la convalida tests.

I ha attaccato il codice che attualmente sto usando, il codice sono provare generata sarò disposto fra le due file„ 'il ************************ il il ********** il il ********** del

Thanks del * " per il vostro aiuto! class= " lineNumbers " >

1 del >
Sub codeBody ChangeTagComplexe (StrRch " del prettyprint " " del class= del id= " codeSnippet779242 del >
 di StrRch (ccc, 1)) allora
                                    Se FrmTagRepl.CaseTrue = allora allineano
                                        . Gamma (“0„ & CStr (lRow)). Il valore = sostituisce (. Gamma (“0„ & CStr (lRow)). Valore, StrRch (ccc, 1), StrRch (ccc, 2))
                                    Altrimenti
                                        . Gamma (“0„ & CStr (lRow)). Il valore = sostituisce (. Gamma (“0„ & CStr (lRow)). Valore, StrRch (ccc, 1), StrRch (ccc, 2), vbTextCompare)
                                    Concluder se
                                Concluder se
                            Ccc seguente
                        Altrimenti
                            Per ccc = 1 - 25
                                Se CStr ("" del <> di StrRch (ccc, 1)) allora
                                    Se FrmTagRepl.CaseTrue = allora allineano
                                        . Gamma (Chr (96 + lCol) & CStr (lRow)). Il valore = sostituisce (. Gamma (Chr (96 + lCol) & CStr (lRow)). Valore, StrRch (ccc, 1), StrRch (ccc, 2))
                                    Altrimenti
                                        . Gamma (Chr (96 + lCol) & CStr (lRow)). Il valore = sostituisce (. Gamma (Chr (96 + lCol) & CStr (lRow)). Valore, StrRch (ccc, 1), StrRch (ccc, 2), vbTextCompare)
                                    Concluder se
                                Concluder se
                            Ccc seguente
                        Concluder se
                   lRow seguente
                lCol seguente
            Estremità con
         indice di oSh.OLEFormat.DoVerb: =1
         'ActiveWindow.Selection.SlideRange.Shapes.SelectAll
            ActivePresentation.Save
            'l'estremità pubblica il datagrid nel grafico
            oGraphChart.Application.Quit
        
        ElseIf (oSh.Type = msoTextBox o oSh.Type = msoPlaceholder o oSh.Type = 1) e (TypObj = 1 o TypObj = 3) allora
            'pubblicare la casella di testo
            Per ccc = 1 - 25
                Se CStr ("" del <> di StrRch (ccc, 1)) allora
                    Se FrmTagRepl.CaseTrue = allora allineano
                        oSh.TextFrame.TextRange.Text = sostituiscono (oSh.TextFrame.TextRange.Text, StrRch (ccc, 1), StrRch (ccc, 2))
                    Altrimenti
                        oSh.TextFrame.TextRange.Text = sostituiscono (oSh.TextFrame.TextRange.Text, StrRch (ccc, 1), StrRch (ccc, 2), vbTextCompare)
                    Concluder se
                Concluder se
            Ccc seguente
        ElseIf oSh.Type = msoTextEffect e (TypObj = 1 o TypObj = 4) allora
            Per ccc = 1 - 25
                Se CStr ("" del <> di StrRch (ccc, 1)) allora
                    Se FrmTagRepl.CaseTrue = allora allineano
                        oSh.TextEffect.Text = sostituiscono (oSh.TextEffect.Text, StrRch (ccc, 1), StrRch (ccc, 2))
                    Altrimenti
                        oSh.TextEffect.Text = sostituiscono (oSh.TextEffect.Text, StrRch (ccc, 1), StrRch (ccc, 2), vbTextCompare)
                    Concluder se
                Concluder se
            Ccc seguente
        ElseIf oSh.Type = 6 e (TypObj = 1) allora
            '*********************************************
            'codificare avuto bisogno di qui di pubblicare l'oggetto incluso di Excel
            '1: determinare l'ultime colonna e fila dello strato attivo
            '2: superare ogni cellula ed effettuare sostituiscono la funzione
            '*********************************************
        Concluder se
    Cc seguente

Sommergibile dell'estremità
class= > " libero " di 

class= del 

Risposta : pubblicare eccellono l'oggetto incluso in PowerPoint via la macro di PowerPoint

Il codice di cui sopra è stato modificato per trovare l'ultima colonna e l'ultima fila nello strato di supremazia. Ma non potrei trovare il defination per la variabile/l'oggetto sotto all'interno del codice che avete fornito.

FrmTagRepl

Il resto del codice è fornito qui sotto:

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

Codice per trovare ultima colonna ed ultima fila: 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). Estremità (xlToLeft). Colonna LastCellAddress = oSh.OLEFormat.Object.Sheets (1).Cells.SpecialCells (xlCellTypeLastCell). Indirizzo '************************************************* '* il codice per sostituire i valori su Embeded eccelle lo strato * '************************************************* TrgetRange fioco come Excel.Range TrgetRange fioco come Excel.Range Regolare TrgetRange = oSh.OLEFormat.Object.Sheets (1).Range (“A1: „ & LastCellAddress) Per ogni cellula in TrgetRange Cell.Value = “valore che volete sostituire con!„ Dopo