Dh, Sdh sy coba tp masih belum bisa jalan. - sdh add: microsoft powerpoint 14.0 object library - file sy simpan di drive d:\ - set pptpres eror, jadi sy ganti posisi file dengan mnggunakan tanda petik - setelah running : mode paste eror gak bisa jalan
Mohon bimbingan selanjutnya.
Tks
Keket
"'Mr. Kid' mr.nm...@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
wrote:
>
>
>Hai Keket,
>
>coba :
>
>0. save as workbook -> type setting pilih macro enabled xlsm -> beri nama file
>-> save
>1. ke VBE -> menu References -> centang MS Office Powerpoint blabla object
>library -> OK -> save workbook
>
>2. ke VBE -> menu insert -> module
>
>3. copas prosedur ini : (sesuaikan dengan kondisi setempat : nama file, nama
>sheet, range yang di-copy dsb)
>
>
>public sub CopasXL2PPT()
>
> 'deklarasi variabel untuk object application (aplikasi power point) dan
>presentation (file ppt)
>
> dim pptApp as powerpoint.application, pptPres as presentation
>
> 'buka aplikasi powerpoint
>
> set pptApp=new powerpoint.application
>
> pptapp.visible=true
>
> 'buka file ppt
>
> set pptpres=ppt.presentations.open(
>drive:\folder\subfolder\namafile.ekstensipptfile )
>
>
> 'copy data dari excel
>
> sheets("nama sheet").range("alamat range").copy
>
> 'paste as bitmap ke slide pertama yang ada dalam file ppt yang dibuka
>
> pptpres.slides(1).shapes.pastespecial pppastebitmap
>
> 'paste as text ke slide pertama yang ada dalam file ppt yang dibuka
>
> pptpres.slides(1).shapes.pastespecial pppastetext
>
>
>end sub
>
>
>4. save workbook -> tutup workbook -> buka lagi -> enable security macro ->
>jalankan prosedur CopasXL2PPT
>
>
>Wassalam,
>
>Kid
>
>
>
>
>2015-03-20 16:29 GMT+11:00 ke2t keket....@gmail.com [belajar-excel]
><belajar-excel@yahoogroups.com>:
>
>
>
>Dh,
>
>Apakah bisa VBA excel bisa nyambung ke file powerpoint? Contoh:
>- Di file .xls saya copy range A1:A4 trus inginnya paste special "bitmap" &
>"text" ke file .ppt
>Jika bisa apa kode VBA ny ya?
>
>Terimakasih.
>
>Hs,
>Keket.
>
>
>
>
><!-- #ygrp-mkp { border: 1px solid #d8d8d8; font-family: Arial; margin: 10px
>0; padding: 0 10px; } #ygrp-mkp hr { border: 1px solid #d8d8d8; } #ygrp-mkp
>#hd { color: #628c2a; font-size: 85%; font-weight: 700; line-height: 122%;
>margin: 10px 0; } #ygrp-mkp #ads { margin-bottom: 10px; } #ygrp-mkp .ad {
>padding: 0 0; } #ygrp-mkp .ad p { margin: 0; } #ygrp-mkp .ad a { color:
>#0000ff; text-decoration: none; } #ygrp-sponsor #ygrp-lc { font-family: Arial;
>} #ygrp-sponsor #ygrp-lc #hd { margin: 10px 0px; font-weight: 700; font-size:
>78%; line-height: 122%; } #ygrp-sponsor #ygrp-lc .ad { margin-bottom: 10px;
>padding: 0 0; } #actions { font-family: Verdana; font-size: 11px; padding:
>10px 0; } #activity { background-color: #e0ecee; float: left; font-family:
>Verdana; font-size: 10px; padding: 10px; } #activity span { font-weight: 700;
>} #activity span:first-child { text-transform: uppercase; } #activity span a {
>color: #5085b6; text-decoration: none; } #activity span span { color: #ff7900;
>} #activity span .underline { text-decoration: underline; } .attach { clear:
>both; display: table; font-family: Arial; font-size: 12px; padding: 10px 0;
>width: 400px; } .attach div a { text-decoration: none; } .attach img { border:
>none; padding-right: 5px; } .attach label { display: block; margin-bottom:
>5px; } .attach label a { text-decoration: none; } blockquote { margin: 0 0 0
>4px; } .bold { font-family: Arial; font-size: 13px; font-weight: 700; } .bold
>a { text-decoration: none; } dd.last p a { font-family: Verdana; font-weight:
>700; } dd.last p span { margin-right: 10px; font-family: Verdana; font-weight:
>700; } dd.last p span.yshortcuts { margin-right: 0; } div.attach-table div div
>a { text-decoration: none; } div.attach-table { width: 400px; } div.file-title
>a, div.file-title a:active, div.file-title a:hover, div.file-title a:visited {
>text-decoration: none; } div.photo-title a, div.photo-title a:active,
>div.photo-title a:hover, div.photo-title a:visited { text-decoration: none; }
>div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts { font-family: Verdana;
>font-size: 10px; font-weight: normal; } .green { color: #628c2a; } .MsoNormal
>{ margin: 0 0 0 0; } o { font-size: 0; } #photos div { float: left; width:
>72px; } #photos div div { border: 1px solid #666666; height: 62px; overflow:
>hidden; width: 62px; } #photos div label { color: #666666; font-size: 10px;
>overflow: hidden; text-align: center; white-space: nowrap; width: 64px; }
>#reco-category { font-size: 77%; } #reco-desc { font-size: 77%; } .replbq {
>margin: 4px; } #ygrp-actbar div a:first-child { /* border-right: 0px solid
>#000;*/ margin-right: 2px; padding-right: 5px; } #ygrp-mlmsg { font-size:
>13px; font-family: Arial, helvetica,clean, sans-serif; *font-size: small;
>*font: x-small; } #ygrp-mlmsg table { font-size: inherit; font: 100%; }
>#ygrp-mlmsg select, input, textarea { font: 99% Arial, Helvetica, clean,
>sans-serif; } #ygrp-mlmsg pre, code { font:115% monospace; *font-size:100%; }
>#ygrp-mlmsg * { line-height: 1.22em; } #ygrp-mlmsg #logo { padding-bottom:
>10px; } #ygrp-msg p a { font-family: Verdana; } #ygrp-msg p#attach-count span
>{ color: #1E66AE; font-weight: 700; } #ygrp-reco #reco-head { color: #ff7900;
>font-weight: 700; } #ygrp-reco { margin-bottom: 20px; padding: 0px; }
>#ygrp-sponsor #ov li a { font-size: 130%; text-decoration: none; }
>#ygrp-sponsor #ov li { font-size: 77%; list-style-type: square; padding: 6px
>0; } #ygrp-sponsor #ov ul { margin: 0; padding: 0 0 0 8px; } #ygrp-text {
>font-family: Georgia; } #ygrp-text p { margin: 0 0 1em 0; } #ygrp-text tt {
>font-size: 120%; } #ygrp-vital ul li:last-child { border-right: none
>!important; } -->
xls2ppt.rar
Description: application/rar
