Skip to content

Instantly share code, notes, and snippets.

View kn1cht's full-sized avatar
🇯🇵
😇 😇 😇 😇 😇

K Ito kn1cht

🇯🇵
😇 😇 😇 😇 😇
View GitHub Profile
@kn1cht
kn1cht / ProgressBar.bas
Created June 22, 2018 03:45 — forked from nappa7878/ProgressBar.bas
PowerPointのスライドにプログレスバーを付加するマクロ
Sub MakeProgressBar()
Const r As String = "00" '色・RGB値のR
Const g As String = "99" '色・RGB値のG
Const b As String = "00" '色・RGB値のB
Const pbH As Long = 10 '高さ
Const pbBG As Single = 0.6 '背景の透過性
Dim i As Long
Dim s As Shape