Вопрос : редактируйте первенствуйте предмет врезанный в PowerPoint через макрос PowerPoint

Здравствулте! специалисты,

I имеют Powerpoint macro " underline " class= которому пропуски через каждый выбранный предмет на скольжении для того чтобы выполнить «заменяют ть» процедуру на коробках текста, на решетках данных в диаграммах и на предметах искусствоа слова.

Now, я должен выполнить такой же тип функции на врезанном предмете Эксел. Дает этот макрос в PowerPoint, оно осложняет это бит для меня и я не могу довольно давать в численном выражении сделать. определению предмета

What вроде делает я нужно сделать для того чтобы мочь выполнить эквивалент: двойник
1. щелкает дальше предметом первенствовать «активирует его "
2. тогда выполняет эквивалент «.Select ActiveCell.SpecialCells (xlLastCell)»
3. тогда идет над каждой клеткой между «A1» и «xlLastCell» для того чтобы выполнить функцию заменя ть и сделать утверждение tests.

I прикрепляло Кодего, котор я в настоящее время использую, Кодего я созданный пытаться буду помещен между 2 рядками» '************************

Thanks * " для вашей помощи! class= " lineNumbers " >

1 >
Sub ChangeTagComplexe " prettyprint " " class= id= " codeSnippet779242 >
 StrRch (CCC, 1)) после этого
                                    Если FrmTagRepl.CaseTrue = True после этого
                                        . Ряд («0» & CStr (lRow)). Значение = заменяет ть (. Ряд («0» & CStr (lRow)). Значение, StrRch (CCC, 1), StrRch (CCC, 2))
                                    Еще
                                        . Ряд («0» & CStr (lRow)). Значение = заменяет ть (. Ряд («0» & CStr (lRow)). Значение, StrRch (CCC, 1), StrRch (CCC, 2), vbTextCompare)
                                    Закончитесь если
                                Закончитесь если
                            Следующий CCC
                        Еще
                            Для CCC = от 1 до 25
                                Если CStr, то ("" <> StrRch (CCC, 1)) после этого
                                    Если FrmTagRepl.CaseTrue = True после этого
                                        . Ряд (Chr (96 + lCol) & CStr (lRow)). Значение = заменяет ть (. Ряд (Chr (96 + lCol) & CStr (lRow)). Значение, StrRch (CCC, 1), StrRch (CCC, 2))
                                    Еще
                                        . Ряд (Chr (96 + lCol) & CStr (lRow)). Значение = заменяет ть (. Ряд (Chr (96 + lCol) & CStr (lRow)). Значение, StrRch (CCC, 1), StrRch (CCC, 2), vbTextCompare)
                                    Закончитесь если
                                Закончитесь если
                            Следующий CCC
                        Закончитесь если
                   Следующее lRow
                Следующее lCol
            Конец с
         индекс oSh.OLEFormat.DoVerb: =1
         'ActiveWindow.Selection.SlideRange.Shapes.SelectAll
            ActivePresentation.Save
            'конец редактирует datagrid в диаграмме
            oGraphChart.Application.Quit
        
        ElseIf (oSh.Type = msoTextBox или oSh.Type = msoPlaceholder или oSh.Type = 1) и (TypObj = 1 или TypObj = 3) после этого
            'редактируйте коробку текста
            Для CCC = от 1 до 25
                Если CStr, то ("" <> StrRch (CCC, 1)) после этого
                    Если FrmTagRepl.CaseTrue = True после этого
                        oSh.TextFrame.TextRange.Text = заменяют ть (oSh.TextFrame.TextRange.Text, StrRch (CCC, 1), StrRch (CCC, 2))
                    Еще
                        oSh.TextFrame.TextRange.Text = заменяют ть (oSh.TextFrame.TextRange.Text, StrRch (CCC, 1), StrRch (CCC, 2), vbTextCompare)
                    Закончитесь если
                Закончитесь если
            Следующий CCC
        ElseIf oSh.Type = msoTextEffect и (TypObj = 1 или TypObj = 4) после этого
            Для CCC = от 1 до 25
                Если CStr, то ("" <> StrRch (CCC, 1)) после этого
                    Если FrmTagRepl.CaseTrue = True после этого
                        oSh.TextEffect.Text = заменяют ть (oSh.TextEffect.Text, StrRch (CCC, 1), StrRch (CCC, 2))
                    Еще
                        oSh.TextEffect.Text = заменяют ть (oSh.TextEffect.Text, StrRch (CCC, 1), StrRch (CCC, 2), vbTextCompare)
                    Закончитесь если
                Закончитесь если
            Следующий CCC
        ElseIf oSh.Type = 6 и (TypObj = 1) после этого
            '*********************************************
            'закодируйте нужно здесь редактировать врезанный предмет Эксел
            '1: обусловьте последние колонку и рядок активно листа
            '2: идите над каждой клеткой и выполните замените функцию
            '*********************************************
        Закончитесь если
    Следующий CC

Подводная лодка конца
class= " ясное " > 

class= 

Ответ : редактируйте первенствуйте предмет врезанный в PowerPoint через макрос PowerPoint

Вышеуказанное Кодий было доработано для того чтобы найти последнюю колонку и последний рядок в листе первенствовать. Но я не smog найти defination для внизу перемеююого/предмета в пределах Кодего, котор вы подавали.

FrmTagRepl

Остальнои Кодего обеспечены ниже:

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

Кодий для того чтобы найти последнюю колонку и последний рядок: MaxRows = oSh.OLEFormat.Object.Sheets (1).Cells (oSh.OLEFormat.Object.Sheets (1).Cells.Rows.Count, 1).End (xlUp). Рядок MaxColumns = oSh.OLEFormat.Object.Sheets (1).Cells (1, oSh.OLEFormat.Object.Sheets (1).Cells.Columns.Count). Конец (xlToLeft). Колонка LastCellAddress = oSh.OLEFormat.Object.Sheets (1).Cells.SpecialCells (xlCellTypeLastCell). Адрес '************************************************* '* Кодий для того чтобы заменить значения на Embeded первенствует лист * '************************************************* Тусклое TrgetRange как Excel.Range Тусклое TrgetRange как Excel.Range Установите TrgetRange = oSh.OLEFormat.Object.Sheets (1).Range («A1: » & LastCellAddress) Для каждой клетки в TrgetRange Cell.Value = «значение, котор вы хотите заменить с!» Затем