我想计算大Public Sub RenameOnSlideObjects()
Dim oSld As Slide
Dim oShp As Shape
Dim oGrpItm As Shape
Dim GrpItmNum As Integer
For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
With oShp
Select Case True
Case .Type = msoPlaceholder ' you could then check the placeholder type too
.Name = "myPlaceholder"
Case .Type = msoTextBox
.Name = "myTextBox"
Case .Type = msoAutoShape
.Name = "myShape"
Case .Type = msoChart
.Name = "myChart"
Case .Type = msoTable
.Name = "myTable"
Case .Type = msoPicture
.Name = "myPicture"
Case .Type = msoSmartArt
.Name = "mySmartArt"
Case .Type = msoGroup ' you could then cycle though each shape in the group
.Name = "myGroup"
GrpItmNum = 0
For Each oGrpItm In .GroupItems
GrpItmNum = GrpItmNum + 1
oGrpItm.Name = "myGroupItem" & GrpItmNum
Next oGrpItm
Case Else
.Name = "Unspecified Object"
End Select
End With
Next
Next
End Sub
的此表达式的总和，然后通过no N=10e9
m<=1000
我尝试过这种方法，但现在还需要更好的方法来帮助我。
1^1+2^2+3^3+...+N^N