How to get the picture in the cell of Excel

[fan_zh]

As the title, I need to get a QR code picture of the cells in the excel file as the picture blow ，but I can only get the value of cell at present，can someone help me?

 

Edited May 13, 2020 by fan_zh

[lrm]

Are the pictures really "in" the cells or just in front of them?  YOu can access pictures via their object name.  For example,

ActiveSheet.Shapes.Range(Array("Picture 1")).Select

 

[hanhphuc]

6 hours ago, lrm said:

Are the pictures really "in" the cells or just in front of them?  YOu can access pictures via their object name.  For example,

ActiveSheet.Shapes.Range(Array("Picture 1")).Select

 

 

same idea which i got from a recorded macro

 

 

The issue if too many images, OLE dialog keeps popping up not sure any sysvar to control? 

(defun c:test (/ *error* excel p v wbk obj lst)
  ;copy image from excel
  ;hp 14.05.2020
  (defun *error* (msg)
    (if excel
	 (vlax-release-object excel)
         )
         (terpri)
    (princ msg)
    )
  
  (and (setq p		(getvar 'viewctr)
	     v		'(0 -10 0)
	     excel	(vlax-get-or-create-object "Excel.Application")
	     )
       
       (if (setq fn (getfiled "" "" "xlsx;xls" 16))
	 (setq wbk (vlax-invoke-method (vlax-get-property excel 'WorkBooks) 'open fn)
	       lst (mapcar '(lambda (x /)
			      (setq obj	(vlax-get-property
					  (cond	(obj)
						(excel)
						)
					  x
					  )
				    )
			      )
			   '(ActiveSheet Shapes) ;;;from recorded macro - ActiveSheet.Shapes.Range(Array("Picture 1")).Select
			   )
	       )
	 (prompt "\nOops.. Failed to open file")
	 )
       
       (vlax-for x (cadr lst)
	 (if (and x (vl-position (vla-get-name x) '( "Picture 1"  "Picture 2" ))) ;;<-- Picture list here 
	   (progn (vlax-invoke-method x 'copy) (vl-cmdf "_PASTECLIP" p))
	   )
	 (setq p (mapcar '+ p v))
	 )
       (if excel
	 (mapcar 'vlax-release-object (reverse (vl-list* excel wbk lst)))
	 )
       )
  (gc)
  (princ)
  )

 

Edited May 14, 2020 by hanhphuc
*error* & picture list

[BIGAL]

QRCODE  bundle makes the QRpatterns just type words etc . I think I got it from Autodesk exchange.

 

 

Edited May 13, 2020 by BIGAL

[fan_zh]

2 hours ago, BIGAL said:

QRCODE  bundle makes the QRpatterns just type words etc . I think I got it from Autodesk exchange.

 

 

Do you mean there is a special QR conversion program provided by Autodesk？

Where can I get it ? thanks

Edited May 14, 2020 by fan_zh

[fan_zh]

7 hours ago, lrm said:

Are the pictures really "in" the cells or just in front of them?  YOu can access pictures via their object name.  For example,

ActiveSheet.Shapes.Range(Array("Picture 1")).Select

I am sure it's really in the cell, Because when I use the cursor to move to the corresponding cell, I can copy and paste the QRcode in it

 

 

[hanhphuc]

14 hours ago, BIGAL said:

QRCODE  bundle makes the QR patterns just type words etc. I think I got it from Autodesk exchange.

 

 

no luck if plugin only supports 2016-2020?

IIRC, ZWCAD Qrcode app is built-in, insert as block if exploded each pixel 1 unit length x 1 unit width of LWPOLYLINE (square)

 

see also Qrcode arx

 

p/s: "How to get the picture in the cell of Excel" or "How to put Qrcode in CAD"?