OLEで起動した Excel の背景が透ける

Thread View: fj.lang.visualbasic

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by Norio Iinuma Fri, 28 Nov 1997 00:00

#968

Author: Norio Iinuma
Date: Fri, 28 Nov 1997 00:00

33 lines
1525 bytes

$BHS>B$H?=$7$^$9!#(B

 OLE$B$G(BExcel$B$r5/F0$9$k0J2<$N$h$&$J%W%m%0%i%`$r:n@.$7$?$H$3$m!"5/F0$7$?(B
Excel$B$N%&%#%s%I%&$NOH$d%D!<%k%\%?%s!"%9%F!<%?%9%P!<$OI=<($5$l$k$N$K!"(B
$B%7!<%H$d(BMDI$B$NGX7J$H$J$kItJ,$,F)$1$F$7$^$&8=>]$,H/@8$7$^$7$?!#(B

=====
    ' Excel$B$N5/F0(B $BI=<((B
    On Error Resume Next
    
    Set objExcel = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
        Set objExcel = CreateObject("Excel.Application")
        objExcel.Visible = False
    End If
        ' $B%(%i!<$,H/@8$7$?>l9g$O(B Err $B%*%V%8%'%/%H$r%/%j%"$7$^$9!#(B
    Err.Clear
    objExcel.Visible = True
=====

 $BI,$::F8=$9$k$o$1$G$O$J$/!"$3$l$G@5>o$KI=<($5$l$k>l9g$b$"$k$N$G$9$,!"(B
$B2?$,0c$&$N$+$O$^$@$o$+$C$F$$$J$$>uBV$G$9!#(B

 $B$3$N860x$*$h$SBP=hJ}K!$K$D$$$F!"2?$+%"%I%P%$%9$,$"$j$^$7$?$i(B
$B$<$R$*65$($/$@$5$$!#(B
 $B$h$m$7$/$*4j$$$$$?$7$^$9!#(B

--
$BHS>BB'M:(B (Norio Iinuma)
 ($B3t(B)$B%a%$%F%C%/(B $B;0EgBhFs%(%s%8%K%"%j%s%0%;%s%?!<=jB0(B
 $B%;%$%3!<EE;R9)6H(B($B3t(B) $B>.;3;v6H=j6PL3(B
 $B6PL3@h(B: n.iinuma@sii.co.jp

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads