coba tambahkan code berikut: ActiveCell.Offset(0, 18 + Month(invdate)).Comment.Shape.TextFrame.AutoSize = True
wassalam, -dwint- Pada 26 Agustus 2012 11:24, wahyu abdi <[email protected]> menulis: > ** > > > Dear All, > > Sebelumnya saya ucapkan selamat Hari Raya Idul Fitri bagi yang > merayakannya, mohon maaf lahir bathin. Saya punya problem dengan VBA insert > comment, setiap penambahan comment baru ukuran comment box nya tidak > berubah, sehingga comment yg baru tidak terlihat. > > Bagaimanakah caranya agar comment box berubah sesuai dengan text yang ada > di dalamnya agar semua comment dapat terlihat? > > Berikut contoh VBA saya: > > > ActiveCell.Offset(0, 50) = ActiveCell.Offset(0, 18 + > Month(invdate)).Comment.Text 'capture comment fill in cell > > ActiveCell.Offset(0, 18 + Month(invdate)).ClearComments > stext = ActiveCell.Offset(0, 50).Value ' convert cell value to var text > ActiveCell.Offset(0, 18 + Month(invdate)).AddComment > ActiveCell.Offset(0, 18 + Month(invdate)).Comment.Text Text:=stext & > Chr(10) & invno & "; " & qty(i) > > > Mohon bantuannya bagi rekan rekan yang tahu kira kira saya harus sisipin > barisan code seperti apa? > > Atas bantuannya sebelumnya saya ucapkan terimaksih. > > Regards, > wahyu > > > >
