- Excel VBA 質問スレ Part32
790 ：デフォルトの名無しさん[sage]：2014/04/27(日) 14:45:53.20 ID:R2zgl6Dy - >>789
作るの難しそうですね。PDFにするなら
2010ぐらいからExportAsFixedFormatがあるのですが。
セル選択範囲を、アクティヴウィンドウ内での短形範囲の
位置情報としてとして抽出でき、
WinAPIに渡せるか、といったところじゃないでしょうか。（予想）
さらにそのビットマップをJPEG,GIFに変換する何かが必要そうですね。
便利そうなのでわたしも欲しいです。
|
- Excel VBA 質問スレ Part32
793 ：デフォルトの名無しさん[sage]：2014/04/27(日) 15:19:47.28 ID:R2zgl6Dy - >>792
素晴らしい
|
- Excel VBA 質問スレ Part32
797 ：デフォルトの名無しさん[sage]：2014/04/27(日) 19:50:23.93 ID:R2zgl6Dy - >>796
動いたよ。
どのワークシートのCellsなのかが不明なのでは。
ValueかTextかは別に関係ないかな
For文の後ろは書ききれなかっただけ？
Sub Renketsu()
Dim str As String
Dim i As Long
str = ""
For i = 1 To 5
str = str & Me.Cells(i, 1).Text & "▲"
Next i
MsgBox str
End Sub
|
- Excel VBA 質問スレ Part32
798 ：デフォルトの名無しさん[sage]：2014/04/27(日) 19:57:39.29 ID:R2zgl6Dy - &使わないほうが速い
Sub Renketsu2()
Dim str() As String
Dim i As Long
For i = 1 To 5
ReDim Preserve str(i - 1)
str(i - 1) = Me.Cells(i, 1).Text
Next
MsgBox Join(str, "▲")
End Sub
|