나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 whznzl (mcjsg87)

추천:  2
파일:     조회:  1415
제목:   vba로 생성된 도형에 하이퍼링크 고정시킬수있을까요?
     
  dew님 도와주셔서 정말 감사합니다.
아래의 도형이 새로 생기는 vba에 하이퍼 링크를 고정 시킬순없는지해서요

새로생긴 도형에 하이퍼링크를 고정하고 지웟다 다시 생성된 도형에도 하이퍼링크가 걸렸으면 합니다ㅠㅠㅠㅠ


Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Row < 2 Or Target.Column > 1 Then Exit Sub
    
    
    Dim StrFile As String
    Dim rC As Range, shpX As Shape
    Dim x, y, w, h
    
    Application.ScreenUpdating = False
        
    For Each shpX In Me.Shapes
        If shpX.TopLeftCell.Address = Target.Offset(, 1).Address Then
            shpX.Delete
        End If
    Next
    
    If Target.Value <> "" Then
        ' 도형 삽입하는 부분 
        Set shpX = ActiveSheet.Shapes.AddShape(msoShapeOval, 1, 1, 1, 1)
        With Target.Offset(, 1)
            x = .Left + 1: y = .Top + 1: w = .Width - 2: h = .Height - 2
        End With
        shpX.Left = x
        shpX.Top = y
        shpX.Width = w
        shpX.Height = h
    End If
        
    Application.ScreenUpdating = True
End Sub
 
[불량 게시물 신고]  
dewMe.Hyperlinks.Add Anchor:=shpX, Address:="http://officetutor.com/"
02-01 (10:57)
삭제 ■신고
whznzl어디쯤에 추가를 하면 될까요
02-01 (11:10)
삭제 ■신고
dewSet shpX = ActiveSheet.Shapes.AddShape...........
여기추가하세요.
With Target.Offset(, 1) ........
02-01 (14:05)
삭제 ■신고
        
  

작성일 : 2019-02-01(09:00)
최종수정일 : 2019-02-01(09:00)