การแทรกรูปภาพใน excel

[มาริษา]

การแทรกรูปภาพใน CELL ให้พอดีกับ CELL ของ EXCEL 2003
โดยที่ไม่ต้องจัดรูปภาพหลายๆครั้ง โดยไม่ใช้ VBA
รบกวนแนะนำหน่อยนะคะ ขอบคุณคะ

[snasui]

ลองตามนี้

1. กดแป้น Alt ค้างไว้ตลอดเวลาหลังจากคลิกบนภาพและทดลองทำตามด้านล่าง
2. คลิกค้างแล้วลากภาพไปมาช้า ๆ จะเห็นว่ารูปจะสามารถเลื่อนไปหยุดตรงเซลล์ใด ๆ อยู่เรื่อย ๆ
3. นำเมาส์ไปชี้ที่ขอบภาพจนเห็นเป็นเครื่องหมายลูกศร 2 ทิศ แล้วลองลากเข้าออกช้า ๆ จะเห็นว่ารูปสามารถลดขนาดหรือเพิ่มขนาดโดยไปหยุดตรงเซลล์ใด ๆ
4. ปรับขนาดให้พอดีเซลล์ตามต้องการ

[มาริษา]

ลองตามนี้

1. กดแป้น Alt ค้างไว้ตลอดเวลาหลังจากคลิกบนภาพและทดลองทำตามด้านล่าง
2. คลิกค้างแล้วลากภาพไปมาช้า ๆ จะเห็นว่ารูปจะสามารถเลื่อนไปหยุดตรงเซลล์ใด ๆ อยู่เรื่อย ๆ
3. นำเมาส์ไปชี้ที่ขอบภาพจนเห็นเป็นเครื่องหมายลูกศร 2 ทิศ แล้วลองลากเข้าออกช้า ๆ จะเห็นว่ารูปสามารถลดขนาดหรือเพิ่มขนาดโดยไปหยุดตรงเซลล์ใด ๆ
4. ปรับขนาดให้พอดีเซลล์ตามต้องการ

ขอบคุณคะ ลองใช้วิธีที่อาจารย์บอกแล้วคะ ทำได้แล้วคะ แต่มีวิธีการอื่นอีกหรือเปล่าคะ เพราะต้องทำเอกสารเป็นร้อยๆรูปคะ ให้รูปก็อบลงเซลล์อัตโนมัติคะ รบกวนอีกครั้งนะคะ

[snasui]

การจัดภาพให้พอดีเซลล์และภาพมีจำนวนมากโดยไม่ใช้ VBA นั้น ผมยังไม่พบวิธีที่ดีกว่าวิธีที่ได้แนะนำไปแล้ว คงต้องรอท่านอื่น ๆ ครับ

[มาริษา]

การจัดภาพให้พอดีเซลล์และภาพมีจำนวนมากโดยไม่ใช้ VBA นั้น ผมยังไม่พบวิธีที่ดีกว่าวิธีที่ได้แนะนำไปแล้ว คงต้องรอท่านอื่น ๆ ครับ

ขอบคุณคะ ถ้าใช้ VBA ยากไหมคะ เพราะหนูไม่เก่งเกี่ยวกับโปรแกรมคะ

[snasui]

การใช้ VBA เป็นเรื่องยากสำหรับคนที่ไม่ได้เรียนมาทางสาย Programming ต้องใช้เวลาศึกษาและทดลองฝึกฝนค่อนข้างมาก ไม่เช่นนั้นได้ Code ไปก็ปรับปรุงเปลี่ยนแปลงเองไม่ได้ครับ

งานที่กำลังทำอยู่นี้ผมเองไม่ได้สนับสนุนให้ทำเช่นนั้น เนื่องจาก Excel ไม่ใช่โปรแกรมที่เหมาะกับการเก็บภาพจำนวนมาก เพราะจะทำให้ไฟล์ใหญ่ ทำงานช้า ยิ่งเก็บภาพมาก ๆ ไฟล์จะทำงานช้าจนกระทั่งทำงานไม่ได้เลย ในปัจจุบันผมต้องแก้ปัญหานี้ให้ท่านอื่นอยู่บ่อย ๆ

[มาริษา]

การใช้ VBA เป็นเรื่องยากสำหรับคนที่ไม่ได้เรียนมาทางสาย Programming ต้องใช้เวลาศึกษาและทดลองฝึกฝนค่อนข้างมาก ไม่เช่นนั้นได้ Code ไปก็ปรับปรุงเปลี่ยนแปลงเองไม่ได้ครับ

งานที่กำลังทำอยู่นี้ผมเองไม่ได้สนับสนุนให้ทำเช่นนั้น เนื่องจาก Excel ไม่ใช่โปรแกรมที่เหมาะกับการเก็บภาพจำนวนมาก เพราะจะทำให้ไฟล์ใหญ่ ทำงานช้า ยิ่งเก็บภาพมาก ๆ ไฟล์จะทำงานช้าจนกระทั่งทำงานไม่ได้เลย ในปัจจุบันผมต้องแก้ปัญหานี้ให้ท่านอื่นอยู่บ่อย ๆ

คะ อาจารย์คะมีโปรแกรมอื่นแนะนำหรือเปล่าคะ สงสัยหลายคำถาม ต้องขอโทษด้วยนะคะ

[snasui]

ถามเยอะ ๆ ได้ครับ ไม่ต้องเกรงใจ

สำหรับโปรแกรมอื่น ๆ ที่เก็บภาพไว้ในโปรแกรมเยอะ ๆ ได้นั้นผมไม่มีข้อมูลและไม่ได้ใช้ครับ

ปกติภาพจะถูกเก็บอยู่ใน Foder ภายในเครื่องคอมพิวเตอร์แล้วดึงมาแสดงผลตามต้องการ สำหรับโปรแกรมชุด Microsoft Office การดึงมาแสดงผลสามารถสร้างเป็น Link หรือใช้ VBA ซึ่งไม่ได้เก็บภาพไว้ในโปรแกรมเหมือนที่กำลังจะทำอยู่นี้ครับ แม้แต่โปรแกรมอื่น ๆ เช่น SQL ซึ่งเป็นโปรแกรมฐานข้อมูลระดับองค์กรใหญ่ ๆ ก็จะเก็บลักษณะเช่นที่กล่าวมาแล้ว

[มาริษา]

ถามเยอะ ๆ ได้ครับ ไม่ต้องเกรงใจ

สำหรับโปรแกรมอื่น ๆ ที่เก็บภาพไว้ในโปรแกรมเยอะ ๆ ได้นั้นผมไม่มีข้อมูลและไม่ได้ใช้ครับ

ปกติภาพจะถูกเก็บอยู่ใน Foder ภายในเครื่องคอมพิวเตอร์แล้วดึงมาแสดงผลตามต้องการ สำหรับโปรแกรมชุด Microsoft Office การดึงมาแสดงผลสามารถสร้างเป็น Link หรือใช้ VBA ซึ่งไม่ได้เก็บภาพไว้ในโปรแกรมเหมือนที่กำลังจะทำอยู่นี้ครับ แม้แต่โปรแกรมอื่น ๆ เช่น SQL ซึ่งเป็นโปรแกรมฐานข้อมูลระดับองค์กรใหญ่ ๆ ก็จะเก็บลักษณะเช่นที่กล่าวมาแล้ว

รบกวนอีกครั้งนะคะ คือหนูไปเจอเวปนี้มาคะ แต่ลองทำตาม ขั้นตอนตามนี้ได้ตามแบบคะ แต่ไม่แน่ใจว่าผิดพลาดที่ตอน copy คำสั่งหรือเปล่า รบกวนอาจารย์แนะนำอีกครั้งนะคะ ขอบคุณคะ http://kvichian.wordpress.com/2011/03/1 ... %e0%b8%b1/

[snasui]

แนบไฟล์ที่ลองทำแล้วยังไม่ได้มาด้วยจะได้ช่วยกันทดสอบครับ

[มาริษา]

แนบไฟล์ที่ลองทำแล้วยังไม่ได้มาด้วยจะได้ช่วยกันทดสอบครับ

ขออนุญาตแนบเอกสารนะคะ

[snasui]

ไม่พบเอกสารแนบครับ

[มาริษา]

ไม่พบเอกสารแนบครับ

แนบไฟล์ไม่ได้คะอาจารย์ มันฟ้องว่า ไฟล์ใหญ่เกินไป รบกวนอาจารย์ ดูจาก เวป http://kvichian.wordpress.com/ นะคะ ขอบคุณคะ

[snasui]

แนบไฟล์อะไรมาครับถึงทำให้ไฟล์ใหญ่ได้ ดูตาม Link มี Code แค่ไม่กี่บรรทัด

ไฟล์ที่จะแนบมานั้นควรทำมาเป็นตัวอย่าง ไม่ควรส่งไฟล์จริงมาครับ

[มาริษา]

แนบไฟล์อะไรมาครับถึงทำให้ไฟล์ใหญ่ได้ ดูตาม Link มี Code แค่ไม่กี่บรรทัด

ไฟล์ที่จะแนบมานั้นควรทำมาเป็นตัวอย่าง ไม่ควรส่งไฟล์จริงมาครับ

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 Sub

[snasui]

แนบไฟล์ตัวอย่างมาด้วย ไฟล์ที่ทดสอบแล้วยังไม่ได้น่ะครับ ส่งแค่ Code มาอย่างเดียวทดสอบไม่ได้ครับ

[มาริษา]

แนบไฟล์ตัวอย่างมาด้วย ไฟล์ที่ทดสอบแล้วยังไม่ได้น่ะครับ ส่งแค่ Code มาอย่างเดียวทดสอบไม่ได้ครับ

[snasui]

ที่ส่งมานั้นเป็นไฟล์ตัวอย่างที่เป็น Excel ซึ่งลองทำแล้วและทำไม่ได้หรือครับ

[มาริษา]

ที่ส่งมานั้นเป็นไฟล์ตัวอย่างที่เป็น Excel ซึ่งลองทำแล้วและทำไม่ได้หรือครับ

ใช่แล้วคะ ไม่ทราบว่ามีวิธีแนะนำอะไรหรือเปล่า

[bank9597]

ที่ส่งมามันใช่ไฟล์ Excel แน่เหรอครับ แต่ผมเปิดเป็น Word น่ะครับ