Question : éditer excellent l'objet inclus dans PowerPoint par l'intermédiaire du macro de PowerPoint

Bonjour les experts, le

I ont un >Powerpoint de " underline " de class= que les passages par chaque objet choisi sur une glissière pour exécuter « remplacent » le procédé sur des boîtes des textes, sur des grilles de données dans les graphiques et sur des objets d'art de mot. le

Now, je dois exécuter le même type de fonction sur un objet inclus d'Excel. Est donné ce macro dans Powerpoint, il complique ceci un peu pour moi et je ne peux pas tout à fait figurer dehors quoi faire. la définition d'objet du

What un peu font je doit faire pour pouvoir exécuter l'équivalent de : le double du
1. cliquent l'objet d'exceler « l'activent " le
2. puis exécutent l'équivalent .Select du « d'ActiveCell.SpecialCells (xlLastCell) » le
3. puis continuent au-dessus de chaque cellule entre « A1 » et le « xlLastCell » pour remplir une fonction de remplacement et pour faire la validation tests.

I ont attaché le code que j'actuellement emploie, le code je suis essai créé serai placé entre les deux rangées » le '************************ du
* "/>
Thanks pour votre aide ! class= " lineNumbers " >

1 de >
Sub " de 
 (de StrRch (ccc, 1)) alors
                                    Si FrmTagRepl.CaseTrue = rectifient alors
                                        . Gamme (« 0 » et CStr (lRow)). La valeur = remplacent (. Gamme (« 0 » et CStr (lRow)). Valeur, StrRch (ccc, 1), StrRch (ccc, 2))
                                    Autrement
                                        . Gamme (« 0 » et CStr (lRow)). La valeur = remplacent (. Gamme (« 0 » et CStr (lRow)). Valeur, StrRch (ccc, 1), StrRch (ccc, 2), vbTextCompare)
                                    Finir si
                                Finir si
                            Prochain ccc
                        Autrement
                            Pour ccc = 1 à 25
                                Si CStr "" de <> (de StrRch (ccc, 1)) alors
                                    Si FrmTagRepl.CaseTrue = rectifient alors
                                        . Gamme (Chr (96 + lCol) et CStr (lRow)). La valeur = remplacent (. Gamme (Chr (96 + lCol) et CStr (lRow)). Valeur, StrRch (ccc, 1), StrRch (ccc, 2))
                                    Autrement
                                        . Gamme (Chr (96 + lCol) et CStr (lRow)). La valeur = remplacent (. Gamme (Chr (96 + lCol) et CStr (lRow)). Valeur, StrRch (ccc, 1), StrRch (ccc, 2), vbTextCompare)
                                    Finir si
                                Finir si
                            Prochain ccc
                        Finir si
                   Prochain lRow
                Prochain lCol
            Extrémité avec
         index d'oSh.OLEFormat.DoVerb : =1
         'ActiveWindow.Selection.SlideRange.Shapes.SelectAll
            ActivePresentation.Save
            la 'extrémité éditent le datagrid dans le graphique
            oGraphChart.Application.Quit
        
        ElseIf (oSh.Type = msoTextBox ou oSh.Type = msoPlaceholder ou oSh.Type = 1) et (TypObj = 1 ou TypObj = 3) puis
            'éditer la boîte des textes
            Pour ccc = 1 à 25
                Si CStr "" de <> (de StrRch (ccc, 1)) alors
                    Si FrmTagRepl.CaseTrue = rectifient alors
                        oSh.TextFrame.TextRange.Text = remplacent (oSh.TextFrame.TextRange.Text, StrRch (ccc, 1), StrRch (le ccc, 2))
                    Autrement
                        oSh.TextFrame.TextRange.Text = remplacent (oSh.TextFrame.TextRange.Text, StrRch (ccc, 1), StrRch (ccc, 2), le vbTextCompare)
                    Finir si
                Finir si
            Prochain ccc
        ElseIf oSh.Type = msoTextEffect et (TypObj = 1 ou TypObj = 4) puis
            Pour ccc = 1 à 25
                Si CStr "" de <> (de StrRch (ccc, 1)) alors
                    Si FrmTagRepl.CaseTrue = rectifient alors
                        oSh.TextEffect.Text = remplacent (oSh.TextEffect.Text, StrRch (ccc, 1), StrRch (le ccc, 2))
                    Autrement
                        oSh.TextEffect.Text = remplacent (oSh.TextEffect.Text, StrRch (ccc, 1), StrRch (ccc, 2), le vbTextCompare)
                    Finir si
                Finir si
            Prochain ccc
        ElseIf oSh.Type = 6 et (TypObj = 1) puis
            '*********************************************
            'coder dû ici éditer l'objet inclus d'Excel
            '1 : déterminer la dernières colonne et rangée de la feuille active
            '2 : aller au-dessus de chaque cellule et exécuter remplacent la fonction
            '*********************************************
        Finir si
    Prochain cc

Sous-marin d'extrémité
class= > " clair " de 

  
  class= de 

Réponse : éditer excellent l'objet inclus dans PowerPoint par l'intermédiaire du macro de PowerPoint

Le code ci-dessus a été modifié pour trouver la dernière colonne et la dernière rangée dans la feuille d'exceler. Mais je ne pourrais pas trouver le defination pour la variable/objet below dans le code que vous avez fourni.

FrmTagRepl

Le reste du code est fourni ci-dessous :

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

Code pour trouver la dernière colonne et la dernière rangée : MaxRows = oSh.OLEFormat.Object.Sheets (1).Cells (oSh.OLEFormat.Object.Sheets (1).Cells.Rows.Count, 1).End (xlUp). Rangée MaxColumns = oSh.OLEFormat.Object.Sheets (1).Cells (1, oSh.OLEFormat.Object.Sheets (1).Cells.Columns.Count). Extrémité (xlToLeft). Colonne LastCellAddress = oSh.OLEFormat.Object.Sheets (1).Cells.SpecialCells (xlCellTypeLastCell). Adresse '************************************************* '* le code pour remplacer des valeurs sur Embeded excellent la feuille * '************************************************* Faible TrgetRange comme Excel.Range Faible TrgetRange comme Excel.Range Placer TrgetRange = oSh.OLEFormat.Object.Sheets (1).Range (« A1 :  » Et LastCellAddress) Pour chaque cellule dans TrgetRange Cell.Value = « la valeur que vous voulez remplacer par ! » Après