Merhaba üstatlar aşağıdaki kodu Ana Sayfa hariç tüm sayfalara uygulamak istiyorum. Ayrıca kodun sonunda yer alan kod hata veriyor.
Sub Deneme()
Dim myShape As Shape
Set myDocument = Worksheets("Sayfa1")
Set myShape = myDocument.Shapes.AddShape(msoShapeRoundedRectangle, 800, 20, 90, 30)
With myShape
.TextFrame.Characters.Text = "Ana Sayfa"
.TextFrame2.VerticalAnchor = msoAnchorMiddle
.TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
End With
ActiveSheet.Hyperlinks.Add Anchor:=myShape, Address:="Sayfa2"
End Sub
Sub Deneme()
Dim myShape As Shape
Set myDocument = Worksheets("Sayfa1")
Set myShape = myDocument.Shapes.AddShape(msoShapeRoundedRectangle, 800, 20, 90, 30)
With myShape
.TextFrame.Characters.Text = "Ana Sayfa"
.TextFrame2.VerticalAnchor = msoAnchorMiddle
.TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
End With
ActiveSheet.Hyperlinks.Add Anchor:=myShape, Address:="Sayfa2"
End Sub