Asalamualaikum warahmatullah, Dear member Belajar Excel Takallahu mina waminkum.
Saya memiliki cekrip untuk menggambar garis:
i = Cells(br, 3).Value + 1
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 298 + 40.5 * i,
46 * (br / 2 - 1) + 42.75, 325 + 40.5 * i, 46 * (br / 2 - 1) + 52.5).Select
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 0, 0)
.Visible = msoTrue
.Weight = 2.5
End With
Cekrip tersebut sudah sesuai dengan yang diinginkan dan bergantung
nilai i.
Bagaimana cara menghapus gambar garis yang terakhir kali digambar?
saya coba menggunakan cekrit:
ActiveSheet.Shapes.Range(Array("Straight Arrow Connector 40")).Delete
bisa dilakukan jika memang nomor garisnya 40, namun nomor garis tidak
tentu dan kadang meloncat bergantuk letak garis yang akan kita buat.
Tolong bagaimana cara menghapus garis terakhir yang dibuat, menggunakan VBA?
Terima kasih
wasalamualaikum warahmatullaah.
Agus
Hapus Garis.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
