ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¿ï¨ú¯S©wÀx¦s®æ½d³ò¤ºªº¹Ï§Îª«¥óªºVBA»yªk

[µo°Ý] ¿ï¨ú¯S©wÀx¦s®æ½d³ò¤ºªº¹Ï§Îª«¥óªºVBA»yªk

±z¦n¡A¦³­ÓÃö©ó¿ï¨ú¯S©wÀx¦s®æ½d³ò¤ºªº¹Ï§Îª«¥óªºVBA»yªk°ÝÃD½Ð±Ð
§Ú¦³¤@­Ó¤u§@ªí¡A¤º§t³\¦h·Ó¤ùª«¥ó
³o¨Ç·Ó¤ùª«¥ó¬O³z¹LVBA±q§Oªº¤u§@ªí³z¹LÀx¦s®æ½d³ò½Æ»s¶K¤Wªº
¦ý§Ú»Ý­n¦b¶K¤W«á¡A¿ï¾Ü¯S©wªºÀx¦s®æ½d³ò¤ºªº·Ó¤ù¶i¦æ·Ó¤ù®æ¦¡¤Æ°Ê§@
µM¤@ª½§ä¤£¨ì¥¿½Tªº »yªk ¨Ó¿ï¨ú¯S©wªºÀx¦s®æ½d³ò¤ºªº·Ó¤ù
½Ð¥ý¶i­Ì«ü¾É¡A·P¿E¤£ºÉ

JS

¦^´_ 1# jsleee

¦]¬°¨S¦³¥ô¦óªº¦^ÂСA¥i¯à¬O§Úªí¹Fªº¤£°÷²M·¡¡A©Ò¥H§Ú¦A´«¥t¤@ºØ¤è¦¡¨Ó»¡
§Úªº¤u§@ªí¤¤¦³³\¦hªº·Ó¤ùª«¥ó¡A±Æ¦C©óÀx¦s®æ¤¤
¦pªG§Ú·Q­nª¾¹D¦b¬Y¤@­ÓÀx¦s®æ¤ºªº·Ó¤ùª«¥óªº¦WºÙ¡A¬O§_¦³¿ìªk³z¹LVBA»yªk¨ú±o¡H
´«¥y¸Ü»¡¡A§Ú¤wª¾¹D¬Y¤@Àx¦s®æ¦ì¸m¤º¦³¤@­Ó·Ó¤ùª«¥ó¡A¦³µL¿ìªk³z¹LVBA»yªk¨ú±o¸Ó·Ó¤ùªº¦WºÙ©Î¸ê°T¡H
¦]¬°§Ú­n¥ÎVBA¶i¦æ«áÄòªº¦ì¸m½Õ¾ã»P®æ¦¡©Î°Ê§@
§Æ±æ¥H¤W¸É¥R¦³§U©ó¤j®a¤F¸Ñ§Úªº°ÝÃD¡A¤]§Æ±æ¦³¥ý¶i¥i¥H«üÂI°g¬z
ÁÂÁÂ
JS

TOP

¦^´_ 2# jsleee
VBA¥u¯à±q¹Ï¤ù±o¨ì¨ä¥ª¤W¨¤ªºÀx¦s®æ
¨S¿ìªk"ª½±µ"±qÀx¦s®æ±o¨ì¹ïÀ³¹Ï¤ù
©Ò¥H¥u¯à¦Û¤v¼gFunction¥ÎFor¥h§ä¡A¨Ò¦p¤U­±³o¼Ë
  1. Function GetPicByCell(from_cell As Range) As Picture
  2.     For Each pic In ActiveSheet.Pictures
  3.         If pic.TopLeftCell.Address = from_cell.Address Then
  4.             Set GetPicByCell = pic
  5.             Exit Function
  6.         End If
  7.     Next
  8.     Set GetPicByCell = Nothing
  9. End Function
½Æ»s¥N½X
  1. Sub Test1()
  2.     Dim pic As Picture
  3.     Set pic = GetPicByCell(Cells(32, 2))
  4.     If pic Is Nothing Then
  5.         MsgBox "§ä¤£¨ì¹Ï¤ù"
  6.     Else
  7.         Debug.Print pic.Width, pic.Height
  8.     End If
  9. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 3# stillfish00

·PÁ stillfish00 ¥ý¶iªº«üÂI
ÁŵM¶}®Ô
ÁÂÁÂ

JS

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD