contact@exceltr.com

ExcelTR - Microsoft Excel Eğitim Sitesi

Görsel Video Microsoft Excel Eğitim Sitesi
31 May 2011

Resmi Sağa Sola Döndürme

//
Yorumlar0
/

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

Cevap bırakın


6 + 3 =