- ©«¤l
- 4
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 11
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- 2017
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2020-10-21
- ³Ì«áµn¿ý
- 2023-11-27
|
Sub PPT§å¶q´¡¤J¤Û¿O¤ù¤Î¹Ï¤ù()
Dim pptPre As Presentation
Dim p As Integer
Set pptPre = ActivePresentation
For p = 1 To 999
pptPre.Slides.Add p, ppLayoutTitleOnly '·s«Ø¤Û¿O¤ù¡A´¡¤J¹Ï¤ù¡A³]©w¤j¤p¦ì¸m
pptPre.Slides(p).Shapes.AddPicture FileName:="D:\\excel_bad_apple\\image\\" & _
Format(p, "000") & ".bmp", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _
Left:=55.11929, Top:=0, Width:=849.7614, Height:=540.7573
With pptPre.Slides(p).SlideShowTransition '³]©w¤Á´«¤è¦¡¤Î¤Á´«®É¶¡
.AdvanceOnClick = msoFalse 'Ãö³¬·Æ¹«³æÀ»¤Á´«
.AdvanceOnTime = msoTrue '¶}±Ò«ö®É¶¡¤Á´«
.AdvanceTime = 0.1 '¤Á´«®É¶¡¬°0.1¬í
End With
Next p
End Sub
³o¬qµ{¦¡½X·|¦bPowerPoint¤¤·s¼W999±i¤Û¿O¤ù¡A¨Ã¦b¨C±i¤Û¿O¤ù¤W´¡¤J¤@±i¹Ï¤ù¡C¹Ï¤ùªºÀɮ׸ô®|©M¦WºÙ¦bµ{¦¡½X¤¤³Q«ü©w¡C±z¥i¥H®Ú¾Ú»Ýn×§ï³o¬qµ{¦¡½X¡C
----------------
¤£ª¾¬O§_¥i¦æ |
|