ทำVBAในPowerPoint

[yodpao.b]

คำถาม
1.ตัวเลขที่วงไว้ไม่สามารถพิมพ์ตัวเลข 72.54หรือเลขตัวอื่นที่เป็นทศนิยมได้ ช่วยแก้โคดให้หน่อยครับ
2.เวลาเลือกอยากให้แสดงตัวเลข 1-10 ครับ
ตัวอย่างที่คำถามอยู่ใน EXCEL แต่ที่เขียนโคดอยู่ในPowerPoint กรุณาด้วยครับ

[snasui]

ช่วยระบุเจาะจงมาอีกสักนิดได้ไหมครับ Code ไหนที่ Run แล้วเป็นปัญหา และปัญหานั้นเกิดขึ้นโดยคลิกที่ปุ่มใด จะได้ช่วยลดเวลาในการเข้าถึงปัญหาครับ

[yodpao.b]

1.ตัวเลขที่วงไว้ไม่สามารถพิมพ์ตัวเลข 72.54หรือเลขตัวอื่นที่เป็นทศนิยมได้ ช่วยแก้โคดให้หน่อยครับ

Code: Select all

Private Sub TextBox11_Change()
TextBox11.Value = Format(TextBox11.Value, "##.#0")
End Sub

2.เวลาเลือกอยากให้แสดงตัวเลข ยกตัวอย่างช่องจำนวนการใช้งานต่อวัน รูปแบบการเลือกอยากให้แสดงค่า1-24 ครับ
แต่ผมทำไม่ได้เวลาคลิกเลือกจึงไม่แสดงตัวเลข

[snasui]

ลองเปลี่ยนเป็น Event อื่นครับ ยกตัวอย่างเช่นตามด้านล่าง

Code: Select all

Private Sub TextBox11_LostFocus()
   TextBox11.Value = Format(TextBox11.Value, "##.#0")
End Sub

Private Sub ComboBox22_GotFocus()
    For i = 1 To 24
       ComboBox22.AddItem i
    Next i
End Sub

[yodpao.b]

ขอบคุณครับอาจารย์

[yodpao.b]

อยากถามอาจารย์ว่า
ComboBox22 สามารถใช้เครื่องมือ Add Effect ใน PowerPoint ได้หรือไม่ อยากให้มัน แว๊วเข้าแว็วออกครับ
แนบไฟล์ไว้แล้วช่วยดูหน่อยครับ

[snasui]

ลองใช้การบันทึก Macro เข้ามาช่วยครับ จากนั้นใช้กับ Change Event ของ ComboBox22

ตัวอย่าง Code ที่ Slide1

Code: Select all

Private Sub ComboBox22_Change()
    Test
End Sub

ตัวอย่าง Code ที่ Module1

Code: Select all

Sub Test()
    With ActivePresentation.SlideShowSettings
        .ShowType = ppShowTypeSpeaker
        .LoopUntilStopped = msoTrue
        .ShowWithNarration = msoFalse
        .ShowWithAnimation = msoTrue
        .RangeType = ppShowAll
        .AdvanceMode = ppSlideShowUseSlideTimings
        .PointerColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
        .Run
    End With
    SlideShowWindows(Index:=1).View.Next
    SlideShowWindows(Index:=1).View.Previous
End Sub

ดูตัวอย่างในไฟล์แนบครับ

[yodpao.b]

ที่อาจารย์ทำให้หมายถึงการคลิ๊กเลือกแล้วแสดงผลลัพธ์ที่เราสร้างขึ้น ผมจะเก็บตัวอย่างนี้ไว้ใช้ในคราวหน้า

ที่ผมหมายถึงคือตั้งการให้ ComboBox22 นั้นแว้วเข้ามา พร้อมกับช่องสี่เหลี่ยมและข้อความแว้วเข้าครับ

[snasui]

เนื่องจาก Object พวกนี้เป็น Control จึงไม่น่าจะ Add Animation ให้กับ Control ได้ครับ

[yodpao.b]

เข้าใจแล้วครับ ขอบคุณครับ