ＶＢＡã§æ—¢ã«ã‚る図形をé¸æŠžã—ã€ã‚³ãƒ”ーã—ã€æŒ‡å®šã®ã‚»ãƒ«ã«è²¼ã‚Šä»˜ã‘る方法を教ãˆã¦ä¸‹ã•ã„ - ＞ＶＢＡã§æ—¢ã«ã‚る図形をé¸æŠžã—ã€ã‚³... - Yahoo!知æµè¢‹ï¼žï¼¶ï¼¢ï¼¡ã§æ—¢ã«ã‚る図形をé¸æŠžã—ã€ã‚³ãƒ”ーã—〠以下ã®ã‚ˆã†ãªæ–¹æ³•ãŒã‚ã‚Šã¾ã™ã€‚ ã€A案】 'åå‰ã§é¸æŠžã™ã‚‹å ´åˆ With ActiveSheet.Shapes("Rectangle 1") .Left = Range("C3").Left .Top = Range("C3").Top End With ---------------------- ã€B案】 Dim myShape As Shape '↓アクティブシートã®ã‚·ã‚§ã‚¤ãƒ—ã®ä¸ã§ For Each myShape In ActiveSheet.Shapes '↓K5ã«å·¦ä¸ŠãŒã‚る図形を移動ã™ã‚‹å ´åˆ If myShape.TopLeftCell.Address(0, 0) = "K5" Then myShape.Left = Range("C3").Left myShape.Top = Range("C3").Top End If Next ã„
{{#tags}}- {{label}}
{{/tags}}