[HELP]MACRO VBA EXCEL

Beranda
Komunitas
Tech
Computer Stuff
[HELP]MACRO VBA EXCEL

RayZaa

23-07-2012 17:30

ane kan lagi iseng2 bikinin worksheet buat bini ane yg lagi usaha nih gan..nah ane pake macro supaya bini ane gampang input data2 yg d butuhkan..
the problem is, pas ane pgen masukin gambar ke kolom "H" yaitu kolom untuk gambar, gambar yg ane input malah muncul di kolom "C".

Ini gambar worksheet yang ane bikin

[HELP]MACRO VBA EXCEL

Ini setelah ane input datanya

[HELP]MACRO VBA EXCEL

Ini coding macro yg buat masukkin gambar k cell

Spoiler for Coding:

Sub InsertPicture()
Dim sPicture As String, pic As Picture

Sheet3.Activate
sPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif;*.png), *.gif; *.jpg; *.bmp; *.tif; *.png", _
, "Select Picture to Import")

If sPicture = "False" Then Exit Sub

Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = ActiveCell.Height
.Width = ActiveCell.Width
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Placement = xlMoveAndSize
End With

Set pic = Nothing

End Sub

ane udah coba utak atik coding nya dan hasilnya pun nihil emoticon-Sorry

ane juga pgen tanya gimana caranya supaya cell yg ane masukin gambar itu panjang dan lebar nya bisa diatur sesuai dengan keinginan.

ada yg bisa bantu ane gan?

3.7K

Kutip

Balasan

Komentar yang asik ya

Urutan

Terbaru

Terlama

Komentar yang asik ya

Komunitas Pilihan