Pergunta : editar primam o objeto encaixado em PowerPoint através do macro de PowerPoint

Olá! os peritos,

I têm um >Powerpoint do " traço " do class= que as passagens através de cada objeto selecionado em uma corrediça para executar “substituam” o procedimento em caixas de texto, em grades dos dados nos gráficos e em objetos da arte da palavra. o

Now, eu tenho que executar o mesmo tipo de função em um objeto encaixado de Excel. É dado este macro em Powerpoint, complica este um bocado para mim e eu não posso completamente figurar para fora o que fazer. o tipo do

What da definição do objeto faz mim precisa de fazer para poder executar o equivalente de: o dobro do
1. estala sobre o objeto primar “ativa-o " o
2. a seguir executa-o o equivalente de “do .Select ActiveCell.SpecialCells (xlLastCell)” o
3. a seguir vai-o sobre cada pilha entre o “A1” e o “xlLastCell” para executar uma função da substituição e para fazer a validação tests.

I uniu o código que eu atualmente me estou usando, o código eu sou tentar criada serei coloc entre as duas fileiras” '************************ do

Thanks do * " para sua ajuda! class= " lineNumbers " >
1 do >
Sub codeBody ChangeTagComplexe do " prettyprint " " do class= do id= " codeSnippet779242 do >
 então
                                    Se FrmTagRepl.CaseTrue = retificam então
                                        . Escala (“0” & CStr (lRow)). O valor = substitui (. Escala (“0” & CStr (lRow)). Valor, StrRch (CCC, 1), StrRch (CCC, 2))
                                    Mais
                                        . Escala (“0” & CStr (lRow)). O valor = substitui (. Escala (“0” & CStr (lRow)). Valor, StrRch (CCC, 1), StrRch (CCC, 2), vbTextCompare)
                                    Terminar se
                                Terminar se
                            CCC seguinte
                        Mais
                            Para CCC = 1 a 25
                                Se CStr (StrRch (CCC, 1)) "" Do <> então
                                    Se FrmTagRepl.CaseTrue = retificam então
                                        . Escala (Chr (96 + lCol) & CStr (lRow)). O valor = substitui (. Escala (Chr (96 + lCol) & CStr (lRow)). Valor, StrRch (CCC, 1), StrRch (CCC, 2))
                                    Mais
                                        . Escala (Chr (96 + lCol) & CStr (lRow)). O valor = substitui (. Escala (Chr (96 + lCol) & CStr (lRow)). Valor, StrRch (CCC, 1), StrRch (CCC, 2), vbTextCompare)
                                    Terminar se
                                Terminar se
                            CCC seguinte
                        Terminar se
                   lRow seguinte
                lCol seguinte
            Extremidade com
         índice de oSh.OLEFormat.DoVerb: =1
         'ActiveWindow.Selection.SlideRange.Shapes.SelectAll
            ActivePresentation.Save
            'a extremidade edita o datagrid no gráfico
            oGraphChart.Application.Quit
        
        ElseIf (oSh.Type = msoTextBox ou oSh.Type = msoPlaceholder ou oSh.Type = 1) e (TypObj = 1 ou TypObj = 3) então
            'editar a caixa de texto
            Para CCC = 1 a 25
                Se CStr (StrRch (CCC, 1)) "" Do <> então
                    Se FrmTagRepl.CaseTrue = retificam então
                        oSh.TextFrame.TextRange.Text = substituem (oSh.TextFrame.TextRange.Text, StrRch (CCC, 1), StrRch (CCC, 2))
                    Mais
                        oSh.TextFrame.TextRange.Text = substituem (oSh.TextFrame.TextRange.Text, StrRch (CCC, 1), StrRch (CCC, 2), o vbTextCompare)
                    Terminar se
                Terminar se
            CCC seguinte
        ElseIf oSh.Type = msoTextEffect e (TypObj = 1 ou TypObj = 4) então
            Para CCC = 1 a 25
                Se CStr (StrRch (CCC, 1)) "" Do <> então
                    Se FrmTagRepl.CaseTrue = retificam então
                        oSh.TextEffect.Text = substituem (oSh.TextEffect.Text, StrRch (CCC, 1), StrRch (CCC, 2))
                    Mais
                        oSh.TextEffect.Text = substituem (oSh.TextEffect.Text, StrRch (CCC, 1), StrRch (CCC, 2), o vbTextCompare)
                    Terminar se
                Terminar se
            CCC seguinte
        ElseIf oSh.Type = 6 e (TypObj = 1) então
            '*********************************************
            'codificar necessário aqui para editar o objeto encaixado de Excel
            '1: determinar a últimas coluna e fileira da folha ativa
            '2: ir sobre cada pilha e executar substituem a função
            '*********************************************
        Terminar se
    Centímetro cúbico seguinte

Submarino da extremidade
class= > " desobstruído " de 

  
  class= do

Resposta : editar primam o objeto encaixado em PowerPoint através do macro de PowerPoint

O código acima foi modificado para encontrar a última coluna e a última fileira na folha primar. Mas eu não poderia encontrar o defination para a variável/objeto below dentro do código que você forneceu.

FrmTagRepl

O descanso do código é fornecido abaixo:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Código para encontrar a última coluna e a última fileira:
MaxRows = oSh.OLEFormat.Object.Sheets (1). Pilhas (oSh.OLEFormat.Object.Sheets (1). Cells.Rows.Count, 1). Extremidade (xlUp). Fileira
MaxColumns = oSh.OLEFormat.Object.Sheets (1). Pilhas (1, oSh.OLEFormat.Object.Sheets (1). Cells.Columns.Count). Extremidade (xlToLeft). Coluna
LastCellAddress = oSh.OLEFormat.Object.Sheets (1). Cells.SpecialCells (xlCellTypeLastCell). Endereço

'*************************************************
'* o código para substituir valores em Embeded prima a folha *  
'*************************************************
TrgetRange não ofuscante como Excel.Range

TrgetRange não ofuscante como Excel.Range
Ajustar TrgetRange = oSh.OLEFormat.Object.Sheets (1). Escala (“A1: ” & LastCellAddress)

Para cada pilha em TrgetRange
    Cell.Value = “o valor que você quer substituir com!”
Em seguida
Outras soluções  
 
programming4us programming4us