คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/
ลองตามนี้
ขอบคุณคะ ลองใช้วิธีที่อาจารย์บอกแล้วคะ ทำได้แล้วคะ แต่มีวิธีการอื่นอีกหรือเปล่าคะ เพราะต้องทำเอกสารเป็นร้อยๆรูปคะ ให้รูปก็อบลงเซลล์อัตโนมัติคะ รบกวนอีกครั้งนะคะsnasui wrote:
- กดแป้น Alt ค้างไว้ตลอดเวลาหลังจากคลิกบนภาพและทดลองทำตามด้านล่าง
- คลิกค้างแล้วลากภาพไปมาช้า ๆ จะเห็นว่ารูปจะสามารถเลื่อนไปหยุดตรงเซลล์ใด ๆ อยู่เรื่อย ๆ
- นำเมาส์ไปชี้ที่ขอบภาพจนเห็นเป็นเครื่องหมายลูกศร 2 ทิศ แล้วลองลากเข้าออกช้า ๆ จะเห็นว่ารูปสามารถลดขนาดหรือเพิ่มขนาดโดยไปหยุดตรงเซลล์ใด ๆ
- ปรับขนาดให้พอดีเซลล์ตามต้องการ
การจัดภาพให้พอดีเซลล์และภาพมีจำนวนมากโดยไม่ใช้ VBA นั้น ผมยังไม่พบวิธีที่ดีกว่าวิธีที่ได้แนะนำไปแล้ว คงต้องรอท่านอื่น ๆ ครับขอบคุณคะ ถ้าใช้ VBA ยากไหมคะ เพราะหนูไม่เก่งเกี่ยวกับโปรแกรมคะsnasui wrote:
การใช้ VBA เป็นเรื่องยากสำหรับคนที่ไม่ได้เรียนมาทางสาย Programming ต้องใช้เวลาศึกษาและทดลองฝึกฝนค่อนข้างมาก ไม่เช่นนั้นได้ Code ไปก็ปรับปรุงเปลี่ยนแปลงเองไม่ได้ครับsnasui wrote:
งานที่กำลังทำอยู่นี้ผมเองไม่ได้สนับสนุนให้ทำเช่นนั้น เนื่องจาก Excel ไม่ใช่โปรแกรมที่เหมาะกับการเก็บภาพจำนวนมาก เพราะจะทำให้ไฟล์ใหญ่ ทำงานช้า ยิ่งเก็บภาพมาก ๆ ไฟล์จะทำงานช้าจนกระทั่งทำงานไม่ได้เลย ในปัจจุบันผมต้องแก้ปัญหานี้ให้ท่านอื่นอยู่บ่อย ๆ
ถามเยอะ ๆ ได้ครับ ไม่ต้องเกรงใจรบกวนอีกครั้งนะคะ คือหนูไปเจอเวปนี้มาคะ แต่ลองทำตาม ขั้นตอนตามนี้ได้ตามแบบคะ แต่ไม่แน่ใจว่าผิดพลาดที่ตอน copy คำสั่งหรือเปล่า รบกวนอาจารย์แนะนำอีกครั้งนะคะ ขอบคุณคะ http://kvichian.wordpress.com/2011/03/1 ... %e0%b8%b1/snasui wrote:
สำหรับโปรแกรมอื่น ๆ ที่เก็บภาพไว้ในโปรแกรมเยอะ ๆ ได้นั้นผมไม่มีข้อมูลและไม่ได้ใช้ครับ
ปกติภาพจะถูกเก็บอยู่ใน Foder ภายในเครื่องคอมพิวเตอร์แล้วดึงมาแสดงผลตามต้องการ สำหรับโปรแกรมชุด Microsoft Office การดึงมาแสดงผลสามารถสร้างเป็น Link หรือใช้ VBA ซึ่งไม่ได้เก็บภาพไว้ในโปรแกรมเหมือนที่กำลังจะทำอยู่นี้ครับ แม้แต่โปรแกรมอื่น ๆ เช่น SQL ซึ่งเป็นโปรแกรมฐานข้อมูลระดับองค์กรใหญ่ ๆ ก็จะเก็บลักษณะเช่นที่กล่าวมาแล้ว
แนบไฟล์ที่ลองทำแล้วยังไม่ได้มาด้วยจะได้ช่วยกันทดสอบครับsnasui wrote:
ไม่พบเอกสารแนบครับแนบไฟล์ไม่ได้คะอาจารย์ มันฟ้องว่า ไฟล์ใหญ่เกินไป รบกวนอาจารย์ ดูจาก เวป http://kvichian.wordpress.com/ นะคะ ขอบคุณคะsnasui wrote:
แนบไฟล์อะไรมาครับถึงทำให้ไฟล์ใหญ่ได้ ดูตาม Link มี Code แค่ไม่กี่บรรทัดsnasui wrote:
ไฟล์ที่จะแนบมานั้นควรทำมาเป็นตัวอย่าง ไม่ควรส่งไฟล์จริงมาครับ
Code: Select all
Sub InsertImage()
‘paste image to active sheet
ActiveSheet.Paste
‘asssign width and heigh of active cell to variables
Widthc = ActiveCell.Width
Heighc = ActiveCell.Height
‘Drawing image by specified width in decimal number 0.0000 – 1.0000
Selection.ShapeRange.ScaleWidth Widthc / 1075, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight Heighc / 650, msoFalse, msoScaleFromTopLeft
‘set parameter for image to move with cell stretch
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With
End Subsnasui wrote:
ที่ส่งมานั้นเป็นไฟล์ตัวอย่างที่เป็น Excel ซึ่งลองทำแล้วและทำไม่ได้หรือครับ 
ใช่แล้วคะ ไม่ทราบว่ามีวิธีแนะนำอะไรหรือเปล่าsnasui wrote:
ที่ส่งมามันใช่ไฟล์ Excel แน่เหรอครับ แต่ผมเปิดเป็น Word น่ะครับ 