PowerPoint: การคงมุมการปัดเศษในขณะที่ปรับขนาดสี่เหลี่ยมมุมมนเหมือนใน Adobe Illustrator

ฉันกำลังใช้ PowerPoint เพื่อสร้างส่วนต่อประสานกับผู้ใช้

มันง่ายถ้าคุณใช้สี่เหลี่ยมมุมฉากแบบปกติ

มันยากเมื่อคุณใช้สี่เหลี่ยมมุมฉาก

มีวิธีการรักษามุมการปัดเศษของสี่เหลี่ยมมุมมนในขณะที่ปรับขนาดหรือไม่? ในปัจจุบันถ้าคุณปรับขนาดสี่เหลี่ยมมุมมนให้ใหญ่ขึ้นหรือเล็กลงอย่างเหมาะสม นี่คือสิ่งที่ฉันไม่ต้องการ ... ฉันต้องการที่จะปรับขนาดเพียงความกว้างและความสูงของสี่เหลี่ยมผืนผ้าโดยไม่ต้องเปลี่ยนรัศมีชายแดนโค้งมน เหมือนใน CSS หรือเหมือนใน Illustrator แต่ใน PowerPoint

จำเป็นต้องมีแมโคร VBA สำหรับการแก้ปัญหา

หากคุณไม่เคยทำงานกับ VBA มาก่อน (โชคดีคุณ) คุณสามารถเรียนรู้เรื่องในบทความ Microsoft ของ: เริ่มต้นกับ VBA ใน PowerPoint 2010 .

คุณจะต้องมีสองแมโครต่อไปนี้: GetShapeRounding และ SetShapeRounding มาโครทั้งสองสมมติว่าสี่เหลี่ยมมุมมนเป็นแบบที่เลือกไว้ในปัจจุบัน รูปร่าง. แมโครแรกจะคำนวณขนาดรัศมีของรูปร่างเป็นจุดและ ชุดที่สองกำหนดรูปร่างที่เลือกให้เป็นรัศมีนี้

การใช้มาโครคือ:

1. สร้างสี่เหลี่ยมมุมมนและเลือก (หรือเลือกไว้)
2. เรียกใช้แมโครแรกเพื่อคำนวณรัศมี
3. ปรับขนาดสี่เหลี่ยมมุมมนและปล่อยให้เลือกไว้
4. เรียกใช้แมโครที่สองเพื่อตั้งค่ามุมเป็นรัศมีที่คำนวณได้

นี่คือมาโคร:

Dim sngRadius As Single ' Radius size in points

Sub GetShapeRounding()
Dim oSh As Shape
Set oSh = ActiveWindow.Selection.ShapeRange(1)
With oSh
  If .Width < .Height Then
    sngRadius = .Width * .Adjustments(1)
  Else ' .Width >= .Height
    sngRadius = .Height * .Adjustments(1)
  End If
End With
MsgBox sngRadius
Set oSh = Nothing
End Sub

Sub SetShapeRounding()
Dim oSh As Shape
Set oSh = ActiveWindow.Selection.ShapeRange(1)
With oSh
  If .Width < .Height Then
    .Adjustments(1) = sngRadius / .Width
  Else ' .Width >= .Height
    .Adjustments(1) = sngRadius / .Height
  End If
End With
Set oSh = Nothing
End Sub

ทดสอบบน PowerPoint 2010

ฉันไม่คิดว่าจะเป็นไปได้หาก PowerPoint ออกนอกกรอบ

คุณต้องเขียนมาโคร VBA ขนาดเล็กเพื่อใช้งาน

มี PowerPoint เพิ่มเติมที่ให้คุณรวมรัศมีมุมเข้าด้วยกัน (ให้รัศมีเดียวกันกับกล่องทุกกล่อง) เราเป็นหนึ่งในนั้น: www.veodin.com/slideproof