ขออนุญาตสอบถาม การระบุตัวเลข เพื่อให้แสดงจำนวนภาพที่เราต้องการ

[GobWeravong]

ขออนุญาตสอบถาม การระบุตัวเลข เพื่อให้แสดงจำนวนภาพที่เราต้องการ
เช่น
เราใส่ตัวเลข 1 ในช่อง ฺB1 ก็ให้แสดงภาพออกมา 1 ภาพ
เราใส่ตัวเลข 2 ในช่อง ฺB1 ก็ให้แสดงภาพออกมา 2 ภาพ
เราใส่ตัวเลข 3 ในช่อง ฺB1 ก็ให้แสดงภาพออกมา 3 ภาพ
เป็นต้นครับ และให้เรียงตำแหน่งภาพตามจุดที่เราต้องการได้ครับ
ขอบคุณมากๆครับ ทางผมได้แนบไฟล์มาด้วยครับ ซึ่งไม่มีความรู้ในการเขียน Code มากนักครับ

[GobWeravong]

ตัวเลขจำนวนที่นำมาใส่ เช่น 1,2,3 อาจจะนำมาจาก Sheet อื่นนะครับ ดังนั้นตัวเลขจะแสดงมาจาก sheet อื่น โดยไม่ต้องกด enter นะครับ
เช่น ช่อง B1 อาจจะไป = ช่อง B1 ใน Sheet2(เพราะทางผมจะดึงข้อมูลจำนวนตัวเลขมาจากแหล่งข้อมูลอื่นมาวางใน Sheet2(B1) และ Sheet1(B1) จะใส่สูตร =Sheet2(B1) ครับ

[logic]

ก่อนที่จะโชว์ภาพใหม่ต้องเขียนโค้ดลบภาพเดิมทุกภาพทิ้งไปก่อน ถ้าไม่ลบมันจะได้ภาพทับถมกันเต็มไปหมดครับ

ช่วยแนบไฟล์ที่ใส่โค้ดเอาไว้เรียบร้อยแล้ว สะดวกกับคนตอบเอาไปทดสอบครับ

[GobWeravong]

เพิ่มเติมไฟล์ครับ ไม่แน่ใจแนบ excel macro ได้หรือไม่ครับ

[GobWeravong]

ขออนุญาต มาแนบไฟล์ใหม่ครับ รอสักครู่ครับ

[GobWeravong]

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

[GobWeravong]

ไฟล์ภาพที่ต้องนำไปวางครับ ซึ่งแต่ละภาพเป็นภาพเดียวกัน สามารถไป save วางใน folder เพื่อสร้าง picture 1,2,3 ตามลำดับได้ครับ

[snasui]

ตัวอย่างการปรับ Code เพื่อให้ลบ Picture ที่มีอยู่ก่อนแล้ว Insert Picture ตามจำนวนค่าใน B1 ครับ

Code: Select all

Sub InsertPicture()
    Dim picSource As String, p As Object
    Dim picNum As Integer, i As Integer
    Dim c As Integer
    picNum = ActiveSheet.Range("b1").Value
    picSource = "D:\0_IPRAN\MOP\picture 1.jpg"
    For Each p In ActiveSheet.Shapes
        If InStr(p.Name, "Picture") Then
            p.Delete
        End If
    Next p
    c = 4 'Start cell
    For i = 1 To picNum
        ActiveSheet.Range("g" & c).Activate
        ActiveSheet.Pictures.Insert( _
            picSource).Name = "Picture " & i
        c = c + 3
    Next i
End Sub

[GobWeravong]

เรียน คุณ snasui และคุณ logic เดี๋ยวผมนำไปทดสอบและจะมาแจ้งผลครับ ขอขอบพระคุณเป็นอย่างสูงครับ

[GobWeravong]

เรียน คุณ snasui ทดสอบแล้วครับ ได้ผลตามที่ต้องการ สุดยอดมากๆครับ ขอขอบพระคุณเป็นอย่างสูงครับ
(ตัวเลข input เปลี่ยน รูปภาพก็จะเปลี่ยนตามครับ)

[GobWeravong]

เรียน คุณ snasui ผมพบปัญหาว่า หากใน sheet ดังกล่าว มีภาพอื่นๆที่ไม่เกี่ยวข้อง เช่น picture500 มันจะลบออกไปด้วยครับ จะแก้ไขอย่างไรครับ ขอบคุณครับ.

[logic]

ลองเปลี่ยนชื่อภาพที่ไม่เกี่ยวข้อง อย่าใช้คำว่า Picture ในชื่อครับ

[GobWeravong]

เรียน คุณ logic
ok ครับ ได้แล้วครับ
(เมื่อวานผมก็ลองแล้วไม่ได้ เนื่องจาก พอแก้ที่ชื่อรูปเป็น 500 ต้องกด enter ที่ช่องด้วยครับ เมื่อวานผมแก้แล้วไม่กด enter มันจึงเป็นชื่อ picture เหมือนเดิมครับ)
ขอบคุณมากๆครับ
****แล้วแบบนี้เราสามารถสร้างเส้น line ให้มัน แสดงจำนวนและหายไป แบบเดียวกับภาพได้ไหมครับ เช่น Connector: Elbow 68 เป็นต้นครับ

[snasui]

การเขียน Code ย่อมจะจัดการได้แทบทุกอย่าง ลองเขียนมาเองก่อน ติดแล้วค่อยถามกันต่อครับ

[GobWeravong]

เรียน คุณ snasui ครับ ตอนนี้ผมได้ลองทำไฟล์สร้าง line มาได้แล้วครับ แต่มีปัญหาว่า เวลาจะลบด้วย code หรือสร้างปุ่ม จะมีปัญหาตรงที่เส้น line ชื่อจะเปลี่ยนตลอดเวลาครับ ทำให้ผมไม่สามารถทำปุ่มไปลบเส้นได้ครับ และจากไฟล์แนบคือต้องการให้โปรแกรม excel นี้หากใส่ตัวเลข 5 โปรแกรมexcel นี้จะสร้างภาพอุปกรณ์ออกมา 5 ตัว และ สร้างเส้นคู่กันออกมา 5เส้น(ของจริงจำนวนไม่จำกัดครับ) หากใส่เลข 1 ก็จะสร้างอุปกรณ์มา 1 ตัว และจะสร้างเส้นคู่กัน คือ Line1 และ lineRedun1 ออกมาครับ ตอนนี้ผมสร้างเส้นออกมาโดยกดปุ่มตามไฟล์แนบครับ ส่วนการลบจะลบด้วย manual แล้วค่อยกดสร้างเส้นขึ้นมาใหม่ครับ ขอบคุณมากๆครับ

[GobWeravong]

ตอนนี้ผมได้ code นี้มาจาก net ต่างประเทศ ซึ่งสามารถนำมาใช้ได้ ซึ่งจะลบเส้นทั้งหมดในภาพครับ จะลองดัดแปลงดูครับ
Set myDocument = Worksheets(1)
With myDocument.Shapes
For i = .Count To 1 Step -1
With .Item(i)
If .Connector Then .Delete
End With
Next
End With

[GobWeravong]

ตอนนี้ผมลองทำดู ได้แล้วครับ แต่ใช้ code และชุดคำสั่งเยอะไปครับ รายละเอียดตามไฟล์ครับ ขอบคุณมากๆครับ

[snasui]

การสร้างเส้นเชื่อมโยง (Connector) ในแบบที่ลบแล้วสร้างใหม่จะยุ่งยากในการจัดการเพราะจะต้องทราบตำแหน่งในการสร้างแต่ละครั้ง

วิธีการที่จะทำให้ง่ายขึ้นคือ สร้าง Object ทั้งภาพและเส้นเชื่อมโยงเอาไว้ให้พอกับจำนวนที่ต้องการแต่ทำการซ่อนเอาไว้ด้วย Code ในการสร้างเอาไว้ก่อนเราสามารถที่จะจัดการชื่อของ Object แต่ละอย่างได้ สามารถที่จะกำหนดให้มีตัวเลขประกอบเพื่อรันลำดับและง่ายต่อการใช้ Code มาจัดการได้

เมื่อผู้ใช้คีย์ค่าจำนวนที่จะใช้ค่อยใช้ Code มาช่วยในการแสดงผลภาพและเส้นเชื่อมโยงตามชื่อที่ให้ลำดับเอาไว้

จะเริ่มด้วยการซ่อนทุก Object ทุกครั้งที่จะให้แสดง แล้วค่อยยกเลิกการซ่อน Object ตามจำนวนที่ผู้ใช้เลือก เช่นนี้เป็นต้นครับ