Fråga : redigera överträffar anmärker inbäddat i Powerpoint via Powerpointmakro

Hälsningexperter,

I har en Powerpoint macro, som passerar till och med varje utvalt anmärker på en glidbana för att utföra ”byter ut” tillvägagångssätt på text boxas, på dataraster i grafer, och uttrycker på konst anmärker.

Now, jag måste att utföra den samma typen av fungerar på en inbäddad Excel anmärker. Ges denna makro i Powerpoint, den försvårar som denna, a bet för mig, och jag kan inte ganska figurera ut vad för att göra. sorten för

What av anmärker definition gör mig behöver att göra för att vara kompetent att utföra motsvarigheten av:
1. dubblett klickar på överträffa anmärker ”aktiverar den "
2. utför därefter motsvarigheten av ”(xlLastCell)
3 för .Select”. gå därefter över varje cell mellan ”A1”, och ”har xlLastCell” som utför en utbytning, fungerar och gör godkännandet tests.

I fäst förmiddagen för kodifiera I för närvarande using, förmiddagen för kodifiera som I är pröva till skapat ska, förläggas in - mellan tvåna ror av” '************************

Thanks för * " för din hjälp! class= " lineNumbers " >

1 för >"" därefter
                                    Om FrmTagRepl.CaseTrue = True därefter
                                        . Spänna (”0” & CStr (lRow)). Värdera = byt ut (. Spänna (”0” & CStr (lRow)). Värdera StrRch (CCC, 1), StrRch (CCC, 2))
                                    Annars
                                        . Spänna (”0” & CStr (lRow)). Värdera = byt ut (. Spänna (”0” & CStr (lRow)). Värdera StrRch (CCC, 1), StrRch (CCC, 2), vbTextCompare),
                                    Avsluta om
                                Avsluta om
                            Nästa CCC
                        Annars
                            För CCC = 1 till 25
                                Om CStr (StrRch (CCC, 1)) <>"" därefter
                                    Om FrmTagRepl.CaseTrue = True därefter
                                        . Spänna (Chr (96 + lColen) & CStr (lRow)). Värdera = byt ut (. Spänna (Chr (96 + lColen) & CStr (lRow)). Värdera StrRch (CCC, 1), StrRch (CCC, 2))
                                    Annars
                                        . Spänna (Chr (96 + lColen) & CStr (lRow)). Värdera = byt ut (. Spänna (Chr (96 + lColen) & CStr (lRow)). Värdera StrRch (CCC, 1), StrRch (CCC, 2), vbTextCompare),
                                    Avsluta om
                                Avsluta om
                            Nästa CCC
                        Avsluta om
                   Nästa lRow
                Nästa lCol
            Avsluta med
         oSh.OLEFormat.DoVerb-index: =1
         'ActiveWindow.Selection.SlideRange.Shapes.SelectAll
            ActivePresentation.Save
            'avsluta redigerar datagrid i graf
            oGraphChart.Application.Quit
        
        ElseIf (oSh.Type = msoTextBox eller oSh.Type = msoPlaceholder eller oSh.Type = 1) och (TypObj = 1 eller TypObj = 3) därefter
            'redigera text boxas
            För CCC = 1 till 25
                Om CStr (StrRch (CCC, 1)) <>"" därefter
                    Om FrmTagRepl.CaseTrue = True därefter
                        oSh.TextFrame.TextRange.Text = byter ut (oSh.TextFrame.TextRange.Text, StrRch (CCC, 1), StrRch (CCC, 2))
                    Annars
                        oSh.TextFrame.TextRange.Text = byter ut (oSh.TextFrame.TextRange.Text, StrRch (CCC, 1), StrRch (CCC, 2), vbTextCompare)
                    Avsluta om
                Avsluta om
            Nästa CCC
        ElseIf oSh.Type = msoTextEffect och (TypObj = 1 eller TypObj = 4) därefter
            För CCC = 1 till 25
                Om CStr (StrRch (CCC, 1)) <>"" därefter
                    Om FrmTagRepl.CaseTrue = True därefter
                        oSh.TextEffect.Text = byter ut (oSh.TextEffect.Text, StrRch (CCC, 1), StrRch (CCC, 2))
                    Annars
                        oSh.TextEffect.Text = byter ut (oSh.TextEffect.Text, StrRch (CCC, 1), StrRch (CCC, 2), vbTextCompare)
                    Avsluta om
                Avsluta om
            Nästa CCC
        ElseIf oSh.Type = 6 och (TypObj = 1) därefter
            '*********************************************,
            'kodifiera behövt här att redigera inbäddad Excel anmärker
            '1: bestäm den sist kolonnen och ro av aktiv täcker
            '2: gå över varje cell och utför byter ut fungerar
            '*********************************************,
        Avsluta om
    Nästa CC

Avsluta suben
<-/pre>
Sub ChangeTagComplexe (StrRch () som stränger, TypObj " för prettyprint " för class= för id= " codeSnippet779242 " för >


" klar " 

Svar : redigera överträffar anmärker inbäddat i Powerpoint via Powerpointmakro

De ovannämnda kodifierar har ändrats för att finna den sist kolonnen, och jumbon ror i överträffa täcker. Men jag kunde inte finna definationen för nedanför variabel/anmärker inom kodifiera som du har git.

FrmTagRepl

Vila av kodifiera är förutsatt att nedanfört:

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

Kodifiera för att finna den sist kolonnen, och jumbon ror: MaxRows = oSh.OLEFormat.Object.Sheets (1). Celler (oSh.OLEFormat.Object.Sheets (1). Cells.Rows.Count 1). Avsluta (xlUp). Ro MaxColumns = oSh.OLEFormat.Object.Sheets (1). Celler (1, oSh.OLEFormat.Object.Sheets (1). Cells.Columns.Count). Avsluta (xlToLeft). Kolonn LastCellAddress = oSh.OLEFormat.Object.Sheets (1). Cells.SpecialCells (xlCellTypeLastCell). Tilltala '*************************************************, '* kodifiera för att byta ut värderar på Embeded överträffar täcker * '*************************************************, Dunkla TrgetRange som Excel.Range Dunkla TrgetRange som Excel.Range Fastställda TrgetRange = oSh.OLEFormat.Object.Sheets (1). Spänna (”A1: ” & LastCellAddress) För varje cell i TrgetRange Cell.Value = ”värdera som du önskar att byta ut med!”, Därefter