Sub ProgressBar()
Dim mySlides As Slides
Dim pageBar As ShapeRange
Dim pageSHower As Shape
Dim pageWidth, pageHeight, pageStep
Dim MyArray() As Variant '增加一个数组以便统计隐藏的幻灯片
Dim i, j, k
j = 0
k = 0
Set mySlides = Application.ActivePresentation.Slides
pageWidth = Application.ActivePresentation.SlideMaster.Width
pageHeight = Application.ActivePresentation.SlideMaster.Height
' pageStep = pageWidth / mySlides.Count
ReDim MyArray(mySlides.Count, 0)
For i = 1 To mySlides.Count '统计隐藏的幻灯片数
If mySlides.Item(i).SlideShowTransition.Hidden = True Then
j = j + 1
MyArray(i, 0) = 1
Else
MyArray(i, 0) = 0
End If
Next
'除去首页和隐藏的幻灯片后计算进度条长度增量
If mySlides.Count - 1 - j > 0 Then
pageStep = pageWidth / (mySlides.Count - 1 - j)
Else
pageStep = 0
End If
On Error Resume Next
For i = 1 To mySlides.Count ' 改为从1开始
k = k + MyArray(i, 0) ' 计算当前隐藏的幻灯片数
Set pageBar = mySlides.Item(i).Shapes.Range(Array())
Set pageBar = _
mySlides.Item(i).Shapes.Range(Array("RectanglePageNum"))
If IsNull(pageBar) Or pageBar.Count = 0 Then GoTo newBar
Set pageSHower = pageBar.Item(1)
GoTo nextPage
newBar:
Set pageSHower = mySlides.Item(i).Shapes.AddShape( _
msoShapeRectangle, 0, _
pageHeight - 3, i * pageStep, 3)
pageSHower.Name = "RectanglePageNum"
nextPage:
pageSHower.Fill.ForeColor.RGB = RGB(246, 202, 5) 'RGB三个数值控制颜色,可用Powerpoint里的取色器来看,选中想要的颜色后将对应数值填入
pageSHower.Line.Visible = msoFalse
' pageSHower.Width = i * pageStep
' 计算进度条长度时除去首页和隐藏的幻灯片
pageSHower.Width = (i - 1 - k) * pageStep
pageSHower.Top = pageHeight - 3 '减去的数值越多则越靠上,根据实际情况调节,每改一次要重新运行F5一下看效果
pageSHower.Left = 0
pageSHower.Height = 3 '这个值控制进度条的高度(即厚度)
' 删除首页和隐藏的幻灯片的进度条
If i = 1 Or MyArray(i, 0) = 1 Then pageSHower.Delete
Next
End Sub
PS C:\WINDOWS\system32> pip install -U pip
Script file 'd:\anaconda3\Scripts\pip-script.py' is not present.
这个时候是pip因为更新一半文件受损导致的
解决办法通过easy_install重新安装pip
easy_install pip
等待重新安装完成pip后就可以重新执行pip的更新
PS C:\WINDOWS\system32> easy_install pip
WARNING: The easy_install command is deprecated and will be removed in a future version.
Searching for pip
Reading https://pypi.org/simple/pip/
Downloading https://files.pythonhosted.org/packages/fe/3b/0fc5e63eb277d5a50a95ce5c896f742ef243be27382303a4a44dd0197e29/pip-20.2b1-py2.py3-none-any.whl#sha256=b4e230e2b8ece18c5a19b818f3c20a8d4eeac8172962779fd9898d7c4ceb1636
Best match: pip 20.2b1
Processing pip-20.2b1-py2.py3-none-any.whl
Installing pip-20.2b1-py2.py3-none-any.whl to d:\anaconda3\lib\site-packages
Adding pip 20.2b1 to easy-install.pth file
Installing pip-script.py script to d:\anaconda3\Scripts
Installing pip.exe script to d:\anaconda3\Scripts
Installing pip3-script.py script to d:\anaconda3\Scripts
Installing pip3.exe script to d:\anaconda3\Scripts
Installing pip3.8-script.py script to d:\anaconda3\Scripts
Installing pip3.8.exe script to d:\anaconda3\Scripts
Installed d:\anaconda3\lib\site-packages\pip-20.2b1-py3.7.egg
Processing dependencies for pip
Finished processing dependencies for pip