Resmi Sağa Sola Döndürme

Videoda gorebildiginiz gibi ornegimiz saga sola resimleri dondurebilmekle ilgili arkadaslar, ornek dosyayi inceleyiniz..

VBA Kodlari

Sub right()
For j = 1 To 7
ActiveSheet.Shapes("Rectangle " & j).Select
For i = 1 To 36
Selection.ShapeRange.IncrementRotation 10#
DoEvents
Next i
Next j
Range("a1").Select
End Sub
Sub left()
For j = 1 To 7
ActiveSheet.Shapes("Rectangle " & j).Select
For i = 1 To 36
Selection.ShapeRange.IncrementRotation -10#
DoEvents
Next i
Next j
Range("a1").Select
End Sub

Saga Sola

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


9 + 5 =