[milis-belajar-excel] Mengubah ukuran Chart Area

classic Classic list List threaded Threaded
8 messages Options
Reply | Threaded
Open this post in threaded view
|

[milis-belajar-excel] Mengubah ukuran Chart Area

Agus-2
Assalamu'alaikum warahnatullah wabarakatuh.

Sahabat belajar excel,

saya sedang belajar membuat file gambar jpg menggunakan vba excel.
Gambar berhasil dibuat, namun sayang, gambar (Chart Area) masih terlalu
besar.

sudah saya perkecil menggunakan:
      With ActiveChart.ChartArea
          .Height = 300
          .Width = 500
      End With
Gambar yang berada di bawah masih merupakan gambar kosong.

Bagaimana cara meng-crop gambar tersebut agar yang tampak pada jpg hanya
range yang diperlukan saja? (bawah gambar yang masih kosong hilang)

Terima kasih

Wasalamu'alaikum warahmatullah wabarakatuh.

NangAgus

--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/9389dfe5-ee6b-a0b9-6b11-0d6423445d76%40gmail.com.

tanya.xlsm (22K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|

Re: [milis-belajar-excel] Mengubah ukuran Chart Area

Kid
Administrator
Wa'alaikumussalam wr wb

hmmm... sudah lama nggak nulik vba... moga2 gak error ya..

begini..
Tentang export image menjadi image file urutan prosesnya :
1. punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture
2. buat sebuah chart kosong di sebuah worksheet dengan ukuran shape image nomor 1  -> menghasilkan shape dengan jenis chart 
    (sepertinya sheet chart sudah di-lock dari rize, jadi pakainya adalah chart di sebuah worksheet)
3. copy shape picture nomor 1
4. aktifkan sheet berisi shape chart -> select shape chart -> pada object chart di dalam shape chart lakukan paste (mem-paste nomor 3 ke dalam shape chart)
5. ekspor chart dalam shape chart menjadi image file

Kuncinya ada di nomor 1,2, dan 4.
Catatan :
a. Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
b. antara nomor 2 dan nomor 3 bisa dikembangkan sesuai kebutuhan
c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan

Contoh 1 : Sudah punya sebuah shape picture berisi suatu gambar, shape picture ada di sheet bernama Kid, nama shape picture adalah Picture1
'a.  Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
dim sFile as string, shtBerisiPicture as worksheet, shpPicture as shape, shtBerisiChart as worksheet, shpChart as shape
sfile=thisworkbook.path & "\kid.jpg"

'1.  punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture
set shtBerisiPicture=sheets("kid")
set shpPicture=shtBerisiPicture.Shapes("Picture1")

2. buat sebuah chart kosong di sebuah worksheet dengan ukuran shape image nomor 1  -> menghasilkan shape dengan jenis chart   
set shtBerisiChart=sheets.add
set shpChart=shtBerisiChart.Shapes.AddChart(width:=shpPicture.Width,height:=shpPicture.Height)

'b. antara nomor 2 dan nomor 3 bisa dikembangkan sesuai kebutuhan
shpChart.chart.chartarea.border.linestyle=xlLineStyleNone   'misal menghilangkan border dari object chart yang ada dalam shape chart

'3. copy shape picture nomor 1
shpPicture.copy

'4. aktifkan sheet berisi shape chart -> select shape chart -> pada object chart di dalam shape chart lakukan paste (mem-paste nomor 3 ke dalam shape chart)
shtBerisiChart.activate
shpChart.select     'harus pakai select supaya terpilih (bukan sekadar diaktifkan)
shpChart.chart.paste       

'5. ekspor chart dalam shape chart menjadi image file  
shpChart.chart.export sfile,"jpg"     'karena file ingin berupa jpg file (lihat ekstensi nama file hasil ekspor)

'c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan  
'buang sheet berisi chart yang menjadi lokasi sementara shape chart selama proses ekspor
shtBerisiChart.delete


Contoh 2 : Gambar adalah hasil copy suatu area range, yaitu range A1:G7, yang ada di sheet bernama Kid
'a.  Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
dim sFile as string, shtBerisiPicture as worksheet, shpPicture as shape, shtBerisiChart as worksheet, shpChart as shape
sfile=thisworkbook.path & "\kid.jpg"
set shtBerisiPicture=sheets.add     'karena belum punya shape picture, bikin sheet baru saja untuk tempat shppicture

'1.  punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture  
sheets("kid").range("a1:g7").copypicture xlScreen,xlPicture      'mulai bikin image dari range yang ditentukan
shtberisipicture.paste      'paste image range yang di-copy ke clipboard tadi menjadi sebuah shape picture di sheet berisi picture
set shpPicture=shtberisipicture.shapes(1)      'karena di sheet baru wadah picture ini hanya ada 1 shape hasil paste tadi

'nomor 2,3,4,5 bisa seperti contoh 1, termasuk poin b bila perlu

'c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan  
shtBerisiChart.delete     'buang sheet berisi chart yang menjadi lokasi sementara shape chart selama proses ekspor
shtBerisiPicture.delete  'buang sheet berisi picture yang menjadi lokasi sementara shape picture selama proses ekspor


Kalau sudah bisa paham prinsip-prinsipnya, semua script diatas bisa dibuat menjadi lebih sederhana.
Jadi, pada kasus ini, solusinya ada dilangkah proses nomor 2. Syaratnya, ada di nomor 1 pada contoh 2.

Wassalamu'alaikum wr wb
Kid



On Wed, Dec 16, 2020 at 8:05 PM Agus <[hidden email]> wrote:
Assalamu'alaikum warahnatullah wabarakatuh.

Sahabat belajar excel,

saya sedang belajar membuat file gambar jpg menggunakan vba excel.
Gambar berhasil dibuat, namun sayang, gambar (Chart Area) masih terlalu
besar.

sudah saya perkecil menggunakan:
      With ActiveChart.ChartArea
          .Height = 300
          .Width = 500
      End With
Gambar yang berada di bawah masih merupakan gambar kosong.

Bagaimana cara meng-crop gambar tersebut agar yang tampak pada jpg hanya
range yang diperlukan saja? (bawah gambar yang masih kosong hilang)

Terima kasih

Wasalamu'alaikum warahmatullah wabarakatuh.

NangAgus

--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/9389dfe5-ee6b-a0b9-6b11-0d6423445d76%40gmail.com.

--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/CAOiZkPsLsn82XZ%2B2UNoNFOg2uG%3DxhLfZiFsQjAtQnG8eSd_6Zw%40mail.gmail.com.
Reply | Threaded
Open this post in threaded view
|

Re: [milis-belajar-excel] Mengubah ukuran Chart Area

Agus-2
Assalamu'alaikum warahmatullah...
Terima kasih, Mas Kid atas penjelasannya.
Jadinya kebutuhan berkembang,
Bagaimana cara mengkopi range dan multiple shape (yang sudah digroup saja sehingga namanya hanya group 3) menjadi satu gambar.
Saya masih bingung untuk menggabungnya, langkah apa yang harus saya lakukan?

terima kasih
wasalamu'alaikum warahmatullah ...
Kenang Agus.

On 12/20/2020 6:41 AM, Mr. Kid wrote:
Wa'alaikumussalam wr wb

hmmm... sudah lama nggak nulik vba... moga2 gak error ya..

begini..
Tentang export image menjadi image file urutan prosesnya :
1. punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture
2. buat sebuah chart kosong di sebuah worksheet dengan ukuran shape image nomor 1  -> menghasilkan shape dengan jenis chart 
    (sepertinya sheet chart sudah di-lock dari rize, jadi pakainya adalah chart di sebuah worksheet)
3. copy shape picture nomor 1
4. aktifkan sheet berisi shape chart -> select shape chart -> pada object chart di dalam shape chart lakukan paste (mem-paste nomor 3 ke dalam shape chart)
5. ekspor chart dalam shape chart menjadi image file

Kuncinya ada di nomor 1,2, dan 4.
Catatan :
a. Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
b. antara nomor 2 dan nomor 3 bisa dikembangkan sesuai kebutuhan
c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan

Contoh 1 : Sudah punya sebuah shape picture berisi suatu gambar, shape picture ada di sheet bernama Kid, nama shape picture adalah Picture1
'a.  Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
dim sFile as string, shtBerisiPicture as worksheet, shpPicture as shape, shtBerisiChart as worksheet, shpChart as shape
sfile=thisworkbook.path & "\kid.jpg"

'1.  punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture
set shtBerisiPicture=sheets("kid")
set shpPicture=shtBerisiPicture.Shapes("Picture1")

2. buat sebuah chart kosong di sebuah worksheet dengan ukuran shape image nomor 1  -> menghasilkan shape dengan jenis chart   
set shtBerisiChart=sheets.add
set shpChart=shtBerisiChart.Shapes.AddChart(width:=shpPicture.Width,height:=shpPicture.Height)

'b. antara nomor 2 dan nomor 3 bisa dikembangkan sesuai kebutuhan
shpChart.chart.chartarea.border.linestyle=xlLineStyleNone   'misal menghilangkan border dari object chart yang ada dalam shape chart

'3. copy shape picture nomor 1
shpPicture.copy

'4. aktifkan sheet berisi shape chart -> select shape chart -> pada object chart di dalam shape chart lakukan paste (mem-paste nomor 3 ke dalam shape chart)
shtBerisiChart.activate
shpChart.select     'harus pakai select supaya terpilih (bukan sekadar diaktifkan)
shpChart.chart.paste       

'5. ekspor chart dalam shape chart menjadi image file  
shpChart.chart.export sfile,"jpg"     'karena file ingin berupa jpg file (lihat ekstensi nama file hasil ekspor)

'c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan  
'buang sheet berisi chart yang menjadi lokasi sementara shape chart selama proses ekspor
shtBerisiChart.delete


Contoh 2 : Gambar adalah hasil copy suatu area range, yaitu range A1:G7, yang ada di sheet bernama Kid
'a.  Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
dim sFile as string, shtBerisiPicture as worksheet, shpPicture as shape, shtBerisiChart as worksheet, shpChart as shape
sfile=thisworkbook.path & "\kid.jpg"
set shtBerisiPicture=sheets.add     'karena belum punya shape picture, bikin sheet baru saja untuk tempat shppicture

'1.  punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture  
sheets("kid").range("a1:g7").copypicture xlScreen,xlPicture      'mulai bikin image dari range yang ditentukan
shtberisipicture.paste      'paste image range yang di-copy ke clipboard tadi menjadi sebuah shape picture di sheet berisi picture
set shpPicture=shtberisipicture.shapes(1)      'karena di sheet baru wadah picture ini hanya ada 1 shape hasil paste tadi

'nomor 2,3,4,5 bisa seperti contoh 1, termasuk poin b bila perlu

'c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan  
shtBerisiChart.delete     'buang sheet berisi chart yang menjadi lokasi sementara shape chart selama proses ekspor
shtBerisiPicture.delete  'buang sheet berisi picture yang menjadi lokasi sementara shape picture selama proses ekspor


Kalau sudah bisa paham prinsip-prinsipnya, semua script diatas bisa dibuat menjadi lebih sederhana.
Jadi, pada kasus ini, solusinya ada dilangkah proses nomor 2. Syaratnya, ada di nomor 1 pada contoh 2.

Wassalamu'alaikum wr wb
Kid



On Wed, Dec 16, 2020 at 8:05 PM Agus <[hidden email]> wrote:
Assalamu'alaikum warahnatullah wabarakatuh.

Sahabat belajar excel,

saya sedang belajar membuat file gambar jpg menggunakan vba excel.
Gambar berhasil dibuat, namun sayang, gambar (Chart Area) masih terlalu
besar.

sudah saya perkecil menggunakan:
      With ActiveChart.ChartArea
          .Height = 300
          .Width = 500
      End With
Gambar yang berada di bawah masih merupakan gambar kosong.

Bagaimana cara meng-crop gambar tersebut agar yang tampak pada jpg hanya
range yang diperlukan saja? (bawah gambar yang masih kosong hilang)

Terima kasih

Wasalamu'alaikum warahmatullah wabarakatuh.

NangAgus

--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/9389dfe5-ee6b-a0b9-6b11-0d6423445d76%40gmail.com.
--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/CAOiZkPsLsn82XZ%2B2UNoNFOg2uG%3DxhLfZiFsQjAtQnG8eSd_6Zw%40mail.gmail.com.


--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/b7cd6eb0-782a-50a5-9672-5a6be5a226a9%40gmail.com.
Kid
Reply | Threaded
Open this post in threaded view
|

Re: [milis-belajar-excel] Mengubah ukuran Chart Area

Kid
Administrator
Wa'alaikumussalam wr wb

Misal shape sudah diketahui namanya bernama Satu dan Dua
Untuk group :
sheets("nama sheet").shapes.range( array( "Satu" , "Dua" ) ).group

Misal semua shapes dalam sebuah sheet :
sheets("nama sheet").shapes.selectall
selection.shaperange.group

Misal shapes yang namanya diawali kata kid
dim shp as shape
for each shp in sheets("nama sheet").shapes
      if shp.name like "kid*" then shp.select replace:=false 
next shp

Wassalamu'alaikum wr wb
Kid







On Mon, Dec 21, 2020 at 8:57 PM Agus <[hidden email]> wrote:
Assalamu'alaikum warahmatullah...
Terima kasih, Mas Kid atas penjelasannya.
Jadinya kebutuhan berkembang,
Bagaimana cara mengkopi range dan multiple shape (yang sudah digroup saja sehingga namanya hanya group 3) menjadi satu gambar.
Saya masih bingung untuk menggabungnya, langkah apa yang harus saya lakukan?

terima kasih
wasalamu'alaikum warahmatullah ...
Kenang Agus.

On 12/20/2020 6:41 AM, Mr. Kid wrote:
Wa'alaikumussalam wr wb

hmmm... sudah lama nggak nulik vba... moga2 gak error ya..

begini..
Tentang export image menjadi image file urutan prosesnya :
1. punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture
2. buat sebuah chart kosong di sebuah worksheet dengan ukuran shape image nomor 1  -> menghasilkan shape dengan jenis chart 
    (sepertinya sheet chart sudah di-lock dari rize, jadi pakainya adalah chart di sebuah worksheet)
3. copy shape picture nomor 1
4. aktifkan sheet berisi shape chart -> select shape chart -> pada object chart di dalam shape chart lakukan paste (mem-paste nomor 3 ke dalam shape chart)
5. ekspor chart dalam shape chart menjadi image file

Kuncinya ada di nomor 1,2, dan 4.
Catatan :
a. Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
b. antara nomor 2 dan nomor 3 bisa dikembangkan sesuai kebutuhan
c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan

Contoh 1 : Sudah punya sebuah shape picture berisi suatu gambar, shape picture ada di sheet bernama Kid, nama shape picture adalah Picture1
'a.  Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
dim sFile as string, shtBerisiPicture as worksheet, shpPicture as shape, shtBerisiChart as worksheet, shpChart as shape
sfile=thisworkbook.path & "\kid.jpg"

'1.  punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture
set shtBerisiPicture=sheets("kid")
set shpPicture=shtBerisiPicture.Shapes("Picture1")

2. buat sebuah chart kosong di sebuah worksheet dengan ukuran shape image nomor 1  -> menghasilkan shape dengan jenis chart   
set shtBerisiChart=sheets.add
set shpChart=shtBerisiChart.Shapes.AddChart(width:=shpPicture.Width,height:=shpPicture.Height)

'b. antara nomor 2 dan nomor 3 bisa dikembangkan sesuai kebutuhan
shpChart.chart.chartarea.border.linestyle=xlLineStyleNone   'misal menghilangkan border dari object chart yang ada dalam shape chart

'3. copy shape picture nomor 1
shpPicture.copy

'4. aktifkan sheet berisi shape chart -> select shape chart -> pada object chart di dalam shape chart lakukan paste (mem-paste nomor 3 ke dalam shape chart)
shtBerisiChart.activate
shpChart.select     'harus pakai select supaya terpilih (bukan sekadar diaktifkan)
shpChart.chart.paste       

'5. ekspor chart dalam shape chart menjadi image file  
shpChart.chart.export sfile,"jpg"     'karena file ingin berupa jpg file (lihat ekstensi nama file hasil ekspor)

'c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan  
'buang sheet berisi chart yang menjadi lokasi sementara shape chart selama proses ekspor
shtBerisiChart.delete


Contoh 2 : Gambar adalah hasil copy suatu area range, yaitu range A1:G7, yang ada di sheet bernama Kid
'a.  Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
dim sFile as string, shtBerisiPicture as worksheet, shpPicture as shape, shtBerisiChart as worksheet, shpChart as shape
sfile=thisworkbook.path & "\kid.jpg"
set shtBerisiPicture=sheets.add     'karena belum punya shape picture, bikin sheet baru saja untuk tempat shppicture

'1.  punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture  
sheets("kid").range("a1:g7").copypicture xlScreen,xlPicture      'mulai bikin image dari range yang ditentukan
shtberisipicture.paste      'paste image range yang di-copy ke clipboard tadi menjadi sebuah shape picture di sheet berisi picture
set shpPicture=shtberisipicture.shapes(1)      'karena di sheet baru wadah picture ini hanya ada 1 shape hasil paste tadi

'nomor 2,3,4,5 bisa seperti contoh 1, termasuk poin b bila perlu

'c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan  
shtBerisiChart.delete     'buang sheet berisi chart yang menjadi lokasi sementara shape chart selama proses ekspor
shtBerisiPicture.delete  'buang sheet berisi picture yang menjadi lokasi sementara shape picture selama proses ekspor


Kalau sudah bisa paham prinsip-prinsipnya, semua script diatas bisa dibuat menjadi lebih sederhana.
Jadi, pada kasus ini, solusinya ada dilangkah proses nomor 2. Syaratnya, ada di nomor 1 pada contoh 2.

Wassalamu'alaikum wr wb
Kid



On Wed, Dec 16, 2020 at 8:05 PM Agus <[hidden email]> wrote:
Assalamu'alaikum warahnatullah wabarakatuh.

Sahabat belajar excel,

saya sedang belajar membuat file gambar jpg menggunakan vba excel.
Gambar berhasil dibuat, namun sayang, gambar (Chart Area) masih terlalu
besar.

sudah saya perkecil menggunakan:
      With ActiveChart.ChartArea
          .Height = 300
          .Width = 500
      End With
Gambar yang berada di bawah masih merupakan gambar kosong.

Bagaimana cara meng-crop gambar tersebut agar yang tampak pada jpg hanya
range yang diperlukan saja? (bawah gambar yang masih kosong hilang)

Terima kasih

Wasalamu'alaikum warahmatullah wabarakatuh.

NangAgus

--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/9389dfe5-ee6b-a0b9-6b11-0d6423445d76%40gmail.com.
--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/CAOiZkPsLsn82XZ%2B2UNoNFOg2uG%3DxhLfZiFsQjAtQnG8eSd_6Zw%40mail.gmail.com.


--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/b7cd6eb0-782a-50a5-9672-5a6be5a226a9%40gmail.com.

--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/CAOiZkPs%2BJrn6WRjTU8oLtOS_%3DTvnB7VOmb9VczHmjrTvieF0og%40mail.gmail.com.
Reply | Threaded
Open this post in threaded view
|

Re: [milis-belajar-excel] Mengubah ukuran Chart Area

Agus-2
Assalamu'alaikum warahmatullah.

Terima kasih Mas Kid, atas penjelasannya.
namun bukan itu yang saya tanyakan.

Bagaimana caranya agar saya dapat membuat gambar(jpg) dari sebuah Range, yang di dalam range tersebut terdapat banyak gambar.
Jadi data dan shape dapat disimpan dalam satu gambar(jpg)

Terima kasih
Wasalamualaikum warahmatullah.

NangAgus.

On 12/23/2020 9:02 AM, Mr. Kid wrote:
Wa'alaikumussalam wr wb

Misal shape sudah diketahui namanya bernama Satu dan Dua
Untuk group :
sheets("nama sheet").shapes.range( array( "Satu" , "Dua" ) ).group

Misal semua shapes dalam sebuah sheet :
sheets("nama sheet").shapes.selectall
selection.shaperange.group

Misal shapes yang namanya diawali kata kid
dim shp as shape
for each shp in sheets("nama sheet").shapes
      if shp.name like "kid*" then shp.select replace:=false 
next shp

Wassalamu'alaikum wr wb
Kid







On Mon, Dec 21, 2020 at 8:57 PM Agus <[hidden email]> wrote:
Assalamu'alaikum warahmatullah...
Terima kasih, Mas Kid atas penjelasannya.
Jadinya kebutuhan berkembang,
Bagaimana cara mengkopi range dan multiple shape (yang sudah digroup saja sehingga namanya hanya group 3) menjadi satu gambar.
Saya masih bingung untuk menggabungnya, langkah apa yang harus saya lakukan?

terima kasih
wasalamu'alaikum warahmatullah ...
Kenang Agus.

On 12/20/2020 6:41 AM, Mr. Kid wrote:
Wa'alaikumussalam wr wb

hmmm... sudah lama nggak nulik vba... moga2 gak error ya..

begini..
Tentang export image menjadi image file urutan prosesnya :
1. punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture
2. buat sebuah chart kosong di sebuah worksheet dengan ukuran shape image nomor 1  -> menghasilkan shape dengan jenis chart 
    (sepertinya sheet chart sudah di-lock dari rize, jadi pakainya adalah chart di sebuah worksheet)
3. copy shape picture nomor 1
4. aktifkan sheet berisi shape chart -> select shape chart -> pada object chart di dalam shape chart lakukan paste (mem-paste nomor 3 ke dalam shape chart)
5. ekspor chart dalam shape chart menjadi image file

Kuncinya ada di nomor 1,2, dan 4.
Catatan :
a. Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
b. antara nomor 2 dan nomor 3 bisa dikembangkan sesuai kebutuhan
c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan

Contoh 1 : Sudah punya sebuah shape picture berisi suatu gambar, shape picture ada di sheet bernama Kid, nama shape picture adalah Picture1
'a.  Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
dim sFile as string, shtBerisiPicture as worksheet, shpPicture as shape, shtBerisiChart as worksheet, shpChart as shape
sfile=thisworkbook.path & "\kid.jpg"

'1.  punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture
set shtBerisiPicture=sheets("kid")
set shpPicture=shtBerisiPicture.Shapes("Picture1")

2. buat sebuah chart kosong di sebuah worksheet dengan ukuran shape image nomor 1  -> menghasilkan shape dengan jenis chart   
set shtBerisiChart=sheets.add
set shpChart=shtBerisiChart.Shapes.AddChart(width:=shpPicture.Width,height:=shpPicture.Height)

'b. antara nomor 2 dan nomor 3 bisa dikembangkan sesuai kebutuhan
shpChart.chart.chartarea.border.linestyle=xlLineStyleNone   'misal menghilangkan border dari object chart yang ada dalam shape chart

'3. copy shape picture nomor 1
shpPicture.copy

'4. aktifkan sheet berisi shape chart -> select shape chart -> pada object chart di dalam shape chart lakukan paste (mem-paste nomor 3 ke dalam shape chart)
shtBerisiChart.activate
shpChart.select     'harus pakai select supaya terpilih (bukan sekadar diaktifkan)
shpChart.chart.paste       

'5. ekspor chart dalam shape chart menjadi image file  
shpChart.chart.export sfile,"jpg"     'karena file ingin berupa jpg file (lihat ekstensi nama file hasil ekspor)

'c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan  
'buang sheet berisi chart yang menjadi lokasi sementara shape chart selama proses ekspor
shtBerisiChart.delete


Contoh 2 : Gambar adalah hasil copy suatu area range, yaitu range A1:G7, yang ada di sheet bernama Kid
'a.  Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
dim sFile as string, shtBerisiPicture as worksheet, shpPicture as shape, shtBerisiChart as worksheet, shpChart as shape
sfile=thisworkbook.path & "\kid.jpg"
set shtBerisiPicture=sheets.add     'karena belum punya shape picture, bikin sheet baru saja untuk tempat shppicture

'1.  punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture  
sheets("kid").range("a1:g7").copypicture xlScreen,xlPicture      'mulai bikin image dari range yang ditentukan
shtberisipicture.paste      'paste image range yang di-copy ke clipboard tadi menjadi sebuah shape picture di sheet berisi picture
set shpPicture=shtberisipicture.shapes(1)      'karena di sheet baru wadah picture ini hanya ada 1 shape hasil paste tadi

'nomor 2,3,4,5 bisa seperti contoh 1, termasuk poin b bila perlu

'c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan  
shtBerisiChart.delete     'buang sheet berisi chart yang menjadi lokasi sementara shape chart selama proses ekspor
shtBerisiPicture.delete  'buang sheet berisi picture yang menjadi lokasi sementara shape picture selama proses ekspor


Kalau sudah bisa paham prinsip-prinsipnya, semua script diatas bisa dibuat menjadi lebih sederhana.
Jadi, pada kasus ini, solusinya ada dilangkah proses nomor 2. Syaratnya, ada di nomor 1 pada contoh 2.

Wassalamu'alaikum wr wb
Kid



On Wed, Dec 16, 2020 at 8:05 PM Agus <[hidden email]> wrote:
Assalamu'alaikum warahnatullah wabarakatuh.

Sahabat belajar excel,

saya sedang belajar membuat file gambar jpg menggunakan vba excel.
Gambar berhasil dibuat, namun sayang, gambar (Chart Area) masih terlalu
besar.

sudah saya perkecil menggunakan:
      With ActiveChart.ChartArea
          .Height = 300
          .Width = 500
      End With
Gambar yang berada di bawah masih merupakan gambar kosong.

Bagaimana cara meng-crop gambar tersebut agar yang tampak pada jpg hanya
range yang diperlukan saja? (bawah gambar yang masih kosong hilang)

Terima kasih

Wasalamu'alaikum warahmatullah wabarakatuh.

NangAgus

--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/9389dfe5-ee6b-a0b9-6b11-0d6423445d76%40gmail.com.
--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/CAOiZkPsLsn82XZ%2B2UNoNFOg2uG%3DxhLfZiFsQjAtQnG8eSd_6Zw%40mail.gmail.com.


--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/b7cd6eb0-782a-50a5-9672-5a6be5a226a9%40gmail.com.


--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/fa7f11f0-e111-d0eb-7d24-7a4c31be4f27%40gmail.com.
Kid
Reply | Threaded
Open this post in threaded view
|

Re: [milis-belajar-excel] Mengubah ukuran Chart Area

Kid
Administrator
oh maksudnya paste range yang di-copy jadi picture ?
      sheets("nama sheet").range("a1:g7").copy
      sheets("nama sheet").picture.paste
Kalau mau disimpan dalam variabel, object shape hasil paste pakai tipe object karena menggunakan object selection
     dim shpPic as object
      sheets("nama sheet").range("a1:g7").copy
       sheets("nama sheet").picture.paste.select
     set shppic=selection

setelah itu pakai contoh 1 yang ada di imil lalu




On Wed, Dec 23, 2020 at 8:25 PM Agus <[hidden email]> wrote:
Assalamu'alaikum warahmatullah.

Terima kasih Mas Kid, atas penjelasannya.
namun bukan itu yang saya tanyakan.

Bagaimana caranya agar saya dapat membuat gambar(jpg) dari sebuah Range, yang di dalam range tersebut terdapat banyak gambar.
Jadi data dan shape dapat disimpan dalam satu gambar(jpg)

Terima kasih
Wasalamualaikum warahmatullah.

NangAgus.

On 12/23/2020 9:02 AM, Mr. Kid wrote:
Wa'alaikumussalam wr wb

Misal shape sudah diketahui namanya bernama Satu dan Dua
Untuk group :
sheets("nama sheet").shapes.range( array( "Satu" , "Dua" ) ).group

Misal semua shapes dalam sebuah sheet :
sheets("nama sheet").shapes.selectall
selection.shaperange.group

Misal shapes yang namanya diawali kata kid
dim shp as shape
for each shp in sheets("nama sheet").shapes
      if shp.name like "kid*" then shp.select replace:=false 
next shp

Wassalamu'alaikum wr wb
Kid







On Mon, Dec 21, 2020 at 8:57 PM Agus <[hidden email]> wrote:
Assalamu'alaikum warahmatullah...
Terima kasih, Mas Kid atas penjelasannya.
Jadinya kebutuhan berkembang,
Bagaimana cara mengkopi range dan multiple shape (yang sudah digroup saja sehingga namanya hanya group 3) menjadi satu gambar.
Saya masih bingung untuk menggabungnya, langkah apa yang harus saya lakukan?

terima kasih
wasalamu'alaikum warahmatullah ...
Kenang Agus.

On 12/20/2020 6:41 AM, Mr. Kid wrote:
Wa'alaikumussalam wr wb

hmmm... sudah lama nggak nulik vba... moga2 gak error ya..

begini..
Tentang export image menjadi image file urutan prosesnya :
1. punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture
2. buat sebuah chart kosong di sebuah worksheet dengan ukuran shape image nomor 1  -> menghasilkan shape dengan jenis chart 
    (sepertinya sheet chart sudah di-lock dari rize, jadi pakainya adalah chart di sebuah worksheet)
3. copy shape picture nomor 1
4. aktifkan sheet berisi shape chart -> select shape chart -> pada object chart di dalam shape chart lakukan paste (mem-paste nomor 3 ke dalam shape chart)
5. ekspor chart dalam shape chart menjadi image file

Kuncinya ada di nomor 1,2, dan 4.
Catatan :
a. Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
b. antara nomor 2 dan nomor 3 bisa dikembangkan sesuai kebutuhan
c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan

Contoh 1 : Sudah punya sebuah shape picture berisi suatu gambar, shape picture ada di sheet bernama Kid, nama shape picture adalah Picture1
'a.  Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
dim sFile as string, shtBerisiPicture as worksheet, shpPicture as shape, shtBerisiChart as worksheet, shpChart as shape
sfile=thisworkbook.path & "\kid.jpg"

'1.  punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture
set shtBerisiPicture=sheets("kid")
set shpPicture=shtBerisiPicture.Shapes("Picture1")

2. buat sebuah chart kosong di sebuah worksheet dengan ukuran shape image nomor 1  -> menghasilkan shape dengan jenis chart   
set shtBerisiChart=sheets.add
set shpChart=shtBerisiChart.Shapes.AddChart(width:=shpPicture.Width,height:=shpPicture.Height)

'b. antara nomor 2 dan nomor 3 bisa dikembangkan sesuai kebutuhan
shpChart.chart.chartarea.border.linestyle=xlLineStyleNone   'misal menghilangkan border dari object chart yang ada dalam shape chart

'3. copy shape picture nomor 1
shpPicture.copy

'4. aktifkan sheet berisi shape chart -> select shape chart -> pada object chart di dalam shape chart lakukan paste (mem-paste nomor 3 ke dalam shape chart)
shtBerisiChart.activate
shpChart.select     'harus pakai select supaya terpilih (bukan sekadar diaktifkan)
shpChart.chart.paste       

'5. ekspor chart dalam shape chart menjadi image file  
shpChart.chart.export sfile,"jpg"     'karena file ingin berupa jpg file (lihat ekstensi nama file hasil ekspor)

'c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan  
'buang sheet berisi chart yang menjadi lokasi sementara shape chart selama proses ekspor
shtBerisiChart.delete


Contoh 2 : Gambar adalah hasil copy suatu area range, yaitu range A1:G7, yang ada di sheet bernama Kid
'a.  Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
dim sFile as string, shtBerisiPicture as worksheet, shpPicture as shape, shtBerisiChart as worksheet, shpChart as shape
sfile=thisworkbook.path & "\kid.jpg"
set shtBerisiPicture=sheets.add     'karena belum punya shape picture, bikin sheet baru saja untuk tempat shppicture

'1.  punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture  
sheets("kid").range("a1:g7").copypicture xlScreen,xlPicture      'mulai bikin image dari range yang ditentukan
shtberisipicture.paste      'paste image range yang di-copy ke clipboard tadi menjadi sebuah shape picture di sheet berisi picture
set shpPicture=shtberisipicture.shapes(1)      'karena di sheet baru wadah picture ini hanya ada 1 shape hasil paste tadi

'nomor 2,3,4,5 bisa seperti contoh 1, termasuk poin b bila perlu

'c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan  
shtBerisiChart.delete     'buang sheet berisi chart yang menjadi lokasi sementara shape chart selama proses ekspor
shtBerisiPicture.delete  'buang sheet berisi picture yang menjadi lokasi sementara shape picture selama proses ekspor


Kalau sudah bisa paham prinsip-prinsipnya, semua script diatas bisa dibuat menjadi lebih sederhana.
Jadi, pada kasus ini, solusinya ada dilangkah proses nomor 2. Syaratnya, ada di nomor 1 pada contoh 2.

Wassalamu'alaikum wr wb
Kid



On Wed, Dec 16, 2020 at 8:05 PM Agus <[hidden email]> wrote:
Assalamu'alaikum warahnatullah wabarakatuh.

Sahabat belajar excel,

saya sedang belajar membuat file gambar jpg menggunakan vba excel.
Gambar berhasil dibuat, namun sayang, gambar (Chart Area) masih terlalu
besar.

sudah saya perkecil menggunakan:
      With ActiveChart.ChartArea
          .Height = 300
          .Width = 500
      End With
Gambar yang berada di bawah masih merupakan gambar kosong.

Bagaimana cara meng-crop gambar tersebut agar yang tampak pada jpg hanya
range yang diperlukan saja? (bawah gambar yang masih kosong hilang)

Terima kasih

Wasalamu'alaikum warahmatullah wabarakatuh.

NangAgus

--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/9389dfe5-ee6b-a0b9-6b11-0d6423445d76%40gmail.com.
--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/CAOiZkPsLsn82XZ%2B2UNoNFOg2uG%3DxhLfZiFsQjAtQnG8eSd_6Zw%40mail.gmail.com.


--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/b7cd6eb0-782a-50a5-9672-5a6be5a226a9%40gmail.com.


--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/CAOiZkPsCXUjeN8585aMAVwf3iJyJW-8EvbnR0b7i2xruKMrQPA%40mail.gmail.com.
Reply | Threaded
Open this post in threaded view
|

Re: [milis-belajar-excel] Mengubah ukuran Chart Area

Agus-2
Assalamu'alaikum Warahmatullah,
Mohon maaf mas Kid, saya gagal paham email terakhir.
pada email yang pertama kemarin saya sudah paham dua duanya (dari range dan dari shape).  sekarang yang saya inginkan adalah menggabung keduanya jadi satu.

Setelah saya coba ternyata tidak perlu menggabungkan kedua cekrip, cukup menggunakan copy range.
Terima kasih mas Kid,
(Jadinya ketawa sendiri mengingat kebodohan ini ;D )
Wasalamu'alaikum warahmatullah.
NangAgus.

On 12/23/2020 9:38 PM, Mr. Kid wrote:
oh maksudnya paste range yang di-copy jadi picture ?
      sheets("nama sheet").range("a1:g7").copy
      sheets("nama sheet").picture.paste
Kalau mau disimpan dalam variabel, object shape hasil paste pakai tipe object karena menggunakan object selection
     dim shpPic as object
      sheets("nama sheet").range("a1:g7").copy
       sheets("nama sheet").picture.paste.select
     set shppic=selection

setelah itu pakai contoh 1 yang ada di imil lalu




On Wed, Dec 23, 2020 at 8:25 PM Agus <[hidden email]> wrote:
Assalamu'alaikum warahmatullah.

Terima kasih Mas Kid, atas penjelasannya.
namun bukan itu yang saya tanyakan.

Bagaimana caranya agar saya dapat membuat gambar(jpg) dari sebuah Range, yang di dalam range tersebut terdapat banyak gambar.
Jadi data dan shape dapat disimpan dalam satu gambar(jpg)

Terima kasih
Wasalamualaikum warahmatullah.

NangAgus.

On 12/23/2020 9:02 AM, Mr. Kid wrote:
Wa'alaikumussalam wr wb

Misal shape sudah diketahui namanya bernama Satu dan Dua
Untuk group :
sheets("nama sheet").shapes.range( array( "Satu" , "Dua" ) ).group

Misal semua shapes dalam sebuah sheet :
sheets("nama sheet").shapes.selectall
selection.shaperange.group

Misal shapes yang namanya diawali kata kid
dim shp as shape
for each shp in sheets("nama sheet").shapes
      if shp.name like "kid*" then shp.select replace:=false 
next shp

Wassalamu'alaikum wr wb
Kid







On Mon, Dec 21, 2020 at 8:57 PM Agus <[hidden email]> wrote:
Assalamu'alaikum warahmatullah...
Terima kasih, Mas Kid atas penjelasannya.
Jadinya kebutuhan berkembang,
Bagaimana cara mengkopi range dan multiple shape (yang sudah digroup saja sehingga namanya hanya group 3) menjadi satu gambar.
Saya masih bingung untuk menggabungnya, langkah apa yang harus saya lakukan?

terima kasih
wasalamu'alaikum warahmatullah ...
Kenang Agus.

On 12/20/2020 6:41 AM, Mr. Kid wrote:
Wa'alaikumussalam wr wb

hmmm... sudah lama nggak nulik vba... moga2 gak error ya..

begini..
Tentang export image menjadi image file urutan prosesnya :
1. punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture
2. buat sebuah chart kosong di sebuah worksheet dengan ukuran shape image nomor 1  -> menghasilkan shape dengan jenis chart 
    (sepertinya sheet chart sudah di-lock dari rize, jadi pakainya adalah chart di sebuah worksheet)
3. copy shape picture nomor 1
4. aktifkan sheet berisi shape chart -> select shape chart -> pada object chart di dalam shape chart lakukan paste (mem-paste nomor 3 ke dalam shape chart)
5. ekspor chart dalam shape chart menjadi image file

Kuncinya ada di nomor 1,2, dan 4.
Catatan :
a. Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
b. antara nomor 2 dan nomor 3 bisa dikembangkan sesuai kebutuhan
c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan

Contoh 1 : Sudah punya sebuah shape picture berisi suatu gambar, shape picture ada di sheet bernama Kid, nama shape picture adalah Picture1
'a.  Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
dim sFile as string, shtBerisiPicture as worksheet, shpPicture as shape, shtBerisiChart as worksheet, shpChart as shape
sfile=thisworkbook.path & "\kid.jpg"

'1.  punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture
set shtBerisiPicture=sheets("kid")
set shpPicture=shtBerisiPicture.Shapes("Picture1")

2. buat sebuah chart kosong di sebuah worksheet dengan ukuran shape image nomor 1  -> menghasilkan shape dengan jenis chart   
set shtBerisiChart=sheets.add
set shpChart=shtBerisiChart.Shapes.AddChart(width:=shpPicture.Width,height:=shpPicture.Height)

'b. antara nomor 2 dan nomor 3 bisa dikembangkan sesuai kebutuhan
shpChart.chart.chartarea.border.linestyle=xlLineStyleNone   'misal menghilangkan border dari object chart yang ada dalam shape chart

'3. copy shape picture nomor 1
shpPicture.copy

'4. aktifkan sheet berisi shape chart -> select shape chart -> pada object chart di dalam shape chart lakukan paste (mem-paste nomor 3 ke dalam shape chart)
shtBerisiChart.activate
shpChart.select     'harus pakai select supaya terpilih (bukan sekadar diaktifkan)
shpChart.chart.paste       

'5. ekspor chart dalam shape chart menjadi image file  
shpChart.chart.export sfile,"jpg"     'karena file ingin berupa jpg file (lihat ekstensi nama file hasil ekspor)

'c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan  
'buang sheet berisi chart yang menjadi lokasi sementara shape chart selama proses ekspor
shtBerisiChart.delete


Contoh 2 : Gambar adalah hasil copy suatu area range, yaitu range A1:G7, yang ada di sheet bernama Kid
'a.  Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
dim sFile as string, shtBerisiPicture as worksheet, shpPicture as shape, shtBerisiChart as worksheet, shpChart as shape
sfile=thisworkbook.path & "\kid.jpg"
set shtBerisiPicture=sheets.add     'karena belum punya shape picture, bikin sheet baru saja untuk tempat shppicture

'1.  punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture  
sheets("kid").range("a1:g7").copypicture xlScreen,xlPicture      'mulai bikin image dari range yang ditentukan
shtberisipicture.paste      'paste image range yang di-copy ke clipboard tadi menjadi sebuah shape picture di sheet berisi picture
set shpPicture=shtberisipicture.shapes(1)      'karena di sheet baru wadah picture ini hanya ada 1 shape hasil paste tadi

'nomor 2,3,4,5 bisa seperti contoh 1, termasuk poin b bila perlu

'c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan  
shtBerisiChart.delete     'buang sheet berisi chart yang menjadi lokasi sementara shape chart selama proses ekspor
shtBerisiPicture.delete  'buang sheet berisi picture yang menjadi lokasi sementara shape picture selama proses ekspor


Kalau sudah bisa paham prinsip-prinsipnya, semua script diatas bisa dibuat menjadi lebih sederhana.
Jadi, pada kasus ini, solusinya ada dilangkah proses nomor 2. Syaratnya, ada di nomor 1 pada contoh 2.

Wassalamu'alaikum wr wb
Kid



On Wed, Dec 16, 2020 at 8:05 PM Agus <[hidden email]> wrote:
Assalamu'alaikum warahnatullah wabarakatuh.

Sahabat belajar excel,

saya sedang belajar membuat file gambar jpg menggunakan vba excel.
Gambar berhasil dibuat, namun sayang, gambar (Chart Area) masih terlalu
besar.

sudah saya perkecil menggunakan:
      With ActiveChart.ChartArea
          .Height = 300
          .Width = 500
      End With
Gambar yang berada di bawah masih merupakan gambar kosong.

Bagaimana cara meng-crop gambar tersebut agar yang tampak pada jpg hanya
range yang diperlukan saja? (bawah gambar yang masih kosong hilang)

Terima kasih

Wasalamu'alaikum warahmatullah wabarakatuh.

NangAgus

--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/9389dfe5-ee6b-a0b9-6b11-0d6423445d76%40gmail.com.
--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/CAOiZkPsLsn82XZ%2B2UNoNFOg2uG%3DxhLfZiFsQjAtQnG8eSd_6Zw%40mail.gmail.com.


--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/b7cd6eb0-782a-50a5-9672-5a6be5a226a9%40gmail.com.



--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/8f3475b1-f771-410c-9d61-79e951b84da1%40gmail.com.
Kid
Reply | Threaded
Open this post in threaded view
|

Re: [milis-belajar-excel] Mengubah ukuran Chart Area

Kid
Administrator
Wa'alaikumussalam wr wb

Hahaha...
Saya juga bingung mau menjawabnya... Tapi ya sekalian saja dipakai untuk bahas hal lain. Asal dicontoh masih ada baris range.copy, nantikan ngeh juga


Sent from my smart enough phone

On Dec 23, 2020, at 22:34, Agus <[hidden email]> wrote:

Assalamu'alaikum Warahmatullah,
Mohon maaf mas Kid, saya gagal paham email terakhir.
pada email yang pertama kemarin saya sudah paham dua duanya (dari range dan dari shape).  sekarang yang saya inginkan adalah menggabung keduanya jadi satu.

Setelah saya coba ternyata tidak perlu menggabungkan kedua cekrip, cukup menggunakan copy range.
Terima kasih mas Kid,
(Jadinya ketawa sendiri mengingat kebodohan ini ;D )
Wasalamu'alaikum warahmatullah.
NangAgus.

On 12/23/2020 9:38 PM, Mr. Kid wrote:
oh maksudnya paste range yang di-copy jadi picture ?
      sheets("nama sheet").range("a1:g7").copy
      sheets("nama sheet").picture.paste
Kalau mau disimpan dalam variabel, object shape hasil paste pakai tipe object karena menggunakan object selection
     dim shpPic as object
      sheets("nama sheet").range("a1:g7").copy
       sheets("nama sheet").picture.paste.select
     set shppic=selection

setelah itu pakai contoh 1 yang ada di imil lalu




On Wed, Dec 23, 2020 at 8:25 PM Agus <[hidden email]> wrote:
Assalamu'alaikum warahmatullah.

Terima kasih Mas Kid, atas penjelasannya.
namun bukan itu yang saya tanyakan.

Bagaimana caranya agar saya dapat membuat gambar(jpg) dari sebuah Range, yang di dalam range tersebut terdapat banyak gambar.
Jadi data dan shape dapat disimpan dalam satu gambar(jpg)

Terima kasih
Wasalamualaikum warahmatullah.

NangAgus.

On 12/23/2020 9:02 AM, Mr. Kid wrote:
Wa'alaikumussalam wr wb

Misal shape sudah diketahui namanya bernama Satu dan Dua
Untuk group :
sheets("nama sheet").shapes.range( array( "Satu" , "Dua" ) ).group

Misal semua shapes dalam sebuah sheet :
sheets("nama sheet").shapes.selectall
selection.shaperange.group

Misal shapes yang namanya diawali kata kid
dim shp as shape
for each shp in sheets("nama sheet").shapes
      if shp.name like "kid*" then shp.select replace:=false 
next shp

Wassalamu'alaikum wr wb
Kid







On Mon, Dec 21, 2020 at 8:57 PM Agus <[hidden email]> wrote:
Assalamu'alaikum warahmatullah...
Terima kasih, Mas Kid atas penjelasannya.
Jadinya kebutuhan berkembang,
Bagaimana cara mengkopi range dan multiple shape (yang sudah digroup saja sehingga namanya hanya group 3) menjadi satu gambar.
Saya masih bingung untuk menggabungnya, langkah apa yang harus saya lakukan?

terima kasih
wasalamu'alaikum warahmatullah ...
Kenang Agus.

On 12/20/2020 6:41 AM, Mr. Kid wrote:
Wa'alaikumussalam wr wb

hmmm... sudah lama nggak nulik vba... moga2 gak error ya..

begini..
Tentang export image menjadi image file urutan prosesnya :
1. punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture
2. buat sebuah chart kosong di sebuah worksheet dengan ukuran shape image nomor 1  -> menghasilkan shape dengan jenis chart 
    (sepertinya sheet chart sudah di-lock dari rize, jadi pakainya adalah chart di sebuah worksheet)
3. copy shape picture nomor 1
4. aktifkan sheet berisi shape chart -> select shape chart -> pada object chart di dalam shape chart lakukan paste (mem-paste nomor 3 ke dalam shape chart)
5. ekspor chart dalam shape chart menjadi image file

Kuncinya ada di nomor 1,2, dan 4.
Catatan :
a. Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
b. antara nomor 2 dan nomor 3 bisa dikembangkan sesuai kebutuhan
c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan

Contoh 1 : Sudah punya sebuah shape picture berisi suatu gambar, shape picture ada di sheet bernama Kid, nama shape picture adalah Picture1
'a.  Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
dim sFile as string, shtBerisiPicture as worksheet, shpPicture as shape, shtBerisiChart as worksheet, shpChart as shape
sfile=thisworkbook.path & "\kid.jpg"

'1.  punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture
set shtBerisiPicture=sheets("kid")
set shpPicture=shtBerisiPicture.Shapes("Picture1")

2. buat sebuah chart kosong di sebuah worksheet dengan ukuran shape image nomor 1  -> menghasilkan shape dengan jenis chart   
set shtBerisiChart=sheets.add
set shpChart=shtBerisiChart.Shapes.AddChart(width:=shpPicture.Width,height:=shpPicture.Height)

'b. antara nomor 2 dan nomor 3 bisa dikembangkan sesuai kebutuhan
shpChart.chart.chartarea.border.linestyle=xlLineStyleNone   'misal menghilangkan border dari object chart yang ada dalam shape chart

'3. copy shape picture nomor 1
shpPicture.copy

'4. aktifkan sheet berisi shape chart -> select shape chart -> pada object chart di dalam shape chart lakukan paste (mem-paste nomor 3 ke dalam shape chart)
shtBerisiChart.activate
shpChart.select     'harus pakai select supaya terpilih (bukan sekadar diaktifkan)
shpChart.chart.paste       

'5. ekspor chart dalam shape chart menjadi image file  
shpChart.chart.export sfile,"jpg"     'karena file ingin berupa jpg file (lihat ekstensi nama file hasil ekspor)

'c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan  
'buang sheet berisi chart yang menjadi lokasi sementara shape chart selama proses ekspor
shtBerisiChart.delete


Contoh 2 : Gambar adalah hasil copy suatu area range, yaitu range A1:G7, yang ada di sheet bernama Kid
'a.  Sebelum nomor 1 bisa dikembangkan sesuai kebutuhan
dim sFile as string, shtBerisiPicture as worksheet, shpPicture as shape, shtBerisiChart as worksheet, shpChart as shape
sfile=thisworkbook.path & "\kid.jpg"
set shtBerisiPicture=sheets.add     'karena belum punya shape picture, bikin sheet baru saja untuk tempat shppicture

'1.  punya shape yang berisi image yang akan di-ekspor -> jenis shape : picture  
sheets("kid").range("a1:g7").copypicture xlScreen,xlPicture      'mulai bikin image dari range yang ditentukan
shtberisipicture.paste      'paste image range yang di-copy ke clipboard tadi menjadi sebuah shape picture di sheet berisi picture
set shpPicture=shtberisipicture.shapes(1)      'karena di sheet baru wadah picture ini hanya ada 1 shape hasil paste tadi

'nomor 2,3,4,5 bisa seperti contoh 1, termasuk poin b bila perlu

'c. setelah nomor 5 bisa dikembangkan sesuai kebutuhan  
shtBerisiChart.delete     'buang sheet berisi chart yang menjadi lokasi sementara shape chart selama proses ekspor
shtBerisiPicture.delete  'buang sheet berisi picture yang menjadi lokasi sementara shape picture selama proses ekspor


Kalau sudah bisa paham prinsip-prinsipnya, semua script diatas bisa dibuat menjadi lebih sederhana.
Jadi, pada kasus ini, solusinya ada dilangkah proses nomor 2. Syaratnya, ada di nomor 1 pada contoh 2.

Wassalamu'alaikum wr wb
Kid



On Wed, Dec 16, 2020 at 8:05 PM Agus <[hidden email]> wrote:
Assalamu'alaikum warahnatullah wabarakatuh.

Sahabat belajar excel,

saya sedang belajar membuat file gambar jpg menggunakan vba excel.
Gambar berhasil dibuat, namun sayang, gambar (Chart Area) masih terlalu
besar.

sudah saya perkecil menggunakan:
      With ActiveChart.ChartArea
          .Height = 300
          .Width = 500
      End With
Gambar yang berada di bawah masih merupakan gambar kosong.

Bagaimana cara meng-crop gambar tersebut agar yang tampak pada jpg hanya
range yang diperlukan saja? (bawah gambar yang masih kosong hilang)

Terima kasih

Wasalamu'alaikum warahmatullah wabarakatuh.

NangAgus

--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/9389dfe5-ee6b-a0b9-6b11-0d6423445d76%40gmail.com.
--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/CAOiZkPsLsn82XZ%2B2UNoNFOg2uG%3DxhLfZiFsQjAtQnG8eSd_6Zw%40mail.gmail.com.


--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/b7cd6eb0-782a-50a5-9672-5a6be5a226a9%40gmail.com.



--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/86FBC557-6F76-4A3C-806E-5AA3A9569FA2%40gmail.com.