excel form sync2 vba

[vba 코드]

참고 : http://stackoverflow.com/questions/37677537/moving-shapes-as-user-scrolls-right-in-excelvba

동기화테스트_절대좌표2.zip

------------------------------

vba 코드로 그룹핑 하는 방법 ...

참고 : https://msdn.microsoft.com/en-us/library/office/ff822172.aspx

Sub 단추1_Click()
  Debug.Print ActiveSheet.Shapes(1).Name
 
  For i = 1 To ActiveSheet.Shapes.Count
    Debug.Print "(" & i & "):" & ActiveSheet.Shapes(i).Name
  Next i
 
 
  'Range("C11").Value = Range("C4").Value
 
  'ActiveSheet.Shapes(2).Left = ActiveSheet.Shapes(1).Left
  'ActiveSheet.Shapes(2).Width = ActiveSheet.Shapes(1).Width
  'ActiveSheet.Shapes(2).Height = ActiveSheet.Shapes(1).Height
   
  'ActiveSheet.Shapes(2).Top = ActiveSheet.Shapes(1).Top + 90
 
    For Each s In ActiveSheet.Shapes
        If s.Type = msoGroup Then s.Ungroup
    Next

    Set shpGroup = ActiveSheet.Shapes.Range(Array(ActiveSheet.Shapes(1).Name, ActiveSheet.Shapes(2).Name)).Group

ErrHandler:
End Sub