Materi

KONSEP JAJAR GENJANG VBA EXCEL

Sub rumus1() Set lusiana = Worksheets(1) lusiana.Shapes(“segitiga1”).Visible = msoTrue lusiana.Shapes(“segitiga1.1”).Visible = msoFalse lusiana.Shapes(“segitiga2”).Visible = msoFalse lusiana.Shapes(“segitiga2.1”).Visible = msoFalse lusiana.Shapes(“segitiga2.2”).Visible =

Bintang Hexagon Ajaib Menggunakan VBA for Powerpoint

Sub loncat1() Dim a As Integer a = ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Left = ActivePresentation.Slides(1).Shapes(“L1”).Left + ActivePresentation.Slides(1).Shapes(“L1”).Width / 60 ActivePresentation.Slides(1).Shapes(“lingkaran” &

id_ID
Scroll to Top