Subroutine 2 değer

[namida]

Sub degisim()
ChangeFormatting ("Arial Black",16)
End Sub


Sub ChangeFormatting(FontName As String, FontSize As Integer)
' Change font name
Selection.Font.Name = FontName
' Change font size if argument is supplied
Selection.Font.Size = FontSize
End Sub

burda ChangeFormatting'i çağırırken hata syntax hatası veriyor nenden acaba?

 

[AS3434]

Sayın namida

Kodları şöyle deneyin.

Sub degisim()
[COLOR=blue]Call [/COLOR]ChangeFormatting("Arial Black", 16)
End Sub

 

[namida]

çok teşekkürler..
bu kadar basit bişiymiş, görememişim..
teşekkürler tekrar