ช่วงหยุดเสาร์อาทิตย์นี้ ผมต้องเร่งทำเวป e-learning ให้
เสร็จเพราะกำหนดส่งวันศุกร์หน้าแล้ว ตอนนี้ทำไปได้
ประมาณ 50% อีกทั้งช่วงจันทร์ถึงศุกร์ก็ต้องช่วยหัวหน้า
ภาคฯ เขียนโครงการวิจัยส่งออกไปให้ทันวันที่ 30 มิย
นี้ด้วย แต่ก่อนไปทำขอนำโปรแกรมที่คิดว่าเป็นประโยชน์
มาให้ชาวหว้ากอได้ลองใช้กันดูครับ
เวลาที่ทำ powerpoint จะสังเกตว่า ถ้าไม่เตรียมลดขนาด
ภาพที่จะนำเสนอให้ดีจะทำให้ไฟล์มีขนาดใหญ่ขึ้นมากโดย
ไม่จำเป็นเช่น บางไฟล์ขนาดจะสูงถึง 50 MB แต่ถ้าใช้
โค้ดด้านล่างนี้ (กด ALT+F11) แล้วเลือก insert module
ใน powerpoint จากนั้น paste code นี้ลงไป จะทำให้
ขนาดของไฟล์เล็กลงครับ ผมทดลองใช้ดูแล้วลดลงจาก
50 MB เหลือ 2 MB เท่านั้นเอง ทั้งนี้แนะนำให้ทำกับไฟล์
สำรองครับ เผื่อมี object ที่ไม่ต้องการให้เปลี่ยนรูปแบบ
ภาพเป็น jpg
Dim SlideIDD(1 To 500) As String
Sub ReduceFileSize()
'Code developed by Practical x 2
N = ActiveWindow.Presentation.Slides.Count
For j = 1 To N
ActiveWindow.View.GotoSlide Index:=j
PName = ActiveWindow.Selection.SlideRange.Shapes.Count
For i = 1 To PName
SlideIDD(i) = ActiveWindow.Selection.SlideRange.Shapes(i).Name
Next i
For i = 1 To PName
a = SlideIDD(i)
'MsgBox a & " " & "Slide Number " & j
'GoTo 1:
b1 = Len(a)
b2 = Len(Replace(a, "Picture", ""))
b3 = Len(Replace(a, "Object", ""))
If b2 < b1 Or b3 < b1 Then
ActiveWindow.Selection.SlideRange.Shapes(i).Select
c = ActiveWindow.Selection.SlideRange.Shapes(i).Top
d = ActiveWindow.Selection.SlideRange.Shapes(i).Left
e = ActiveWindow.Selection.SlideRange.Shapes(i).Height
f = ActiveWindow.Selection.SlideRange.Shapes(i).Width
g = ActiveWindow.Selection.SlideRange.Shapes(i).ZOrderPosition
'MsgBox g & "Slide Number = " & j
ActiveWindow.Selection.Cut
ActiveWindow.View.PasteSpecial ppPastePNG
ActiveWindow.Selection.Cut
ActiveWindow.View.PasteSpecial ppPasteMetafilePicture
ActiveWindow.Selection.Cut
ActiveWindow.View.PasteSpecial ppPasteJPG
ActiveWindow.Selection.ShapeRange.Top = c
ActiveWindow.Selection.ShapeRange.Left = d
ActiveWindow.Selection.ShapeRange.Height = e
ActiveWindow.Selection.ShapeRange.Width = f
ActiveWindow.Selection.ShapeRange.ZOrder g
End If
1:
Next i
Next j
ActiveWindow.View.GotoSlide Index:=1
End Sub
จากคุณ :
Practical x 2 
- [
24 มิ.ย. 49 09:33:51
]
ของฝากแด่ชาวหว้ากอ
