Excel2010だと、他のバージョンに比べてShapeが右にずれる!
なので、Excel2010の場合、Shapeを左に3ポイントずらして描画することで対応するけど、
なんだか納得いかねぇ~なぁ~。
Excel2007だと印刷される罫線がExcel2010だと印刷されないんだよね。
まさか、Windows7の仕業(プリンタドライバ)じゃなかろう・・・・な・・・そこまで変わるか!?
ぬぬぬ・・・
2011年6月27日月曜日
印刷時にExcel2010の罫線が歯抜けになる現象
Excel2010の場合、印刷時に罫線が歯抜けになる事象が発生。
なんだよ・・・勘弁してくれよ・・・・
当然、2003と2007は正常に出力されるんだよね。
色の指定とかも疑ったのだが、試してみても印刷されない。
ほんと、頼むよぉ~、Excel。
で、ネットを漁っていたらヘッダーフッターの印刷が無ければ?OKだそうな。
今回は、フッターに画像を入れて印刷していたのだが、それをはずしてみた。
すると・・・・
罫線が印刷できたよ・・・
ほんと、勘弁してくれよなぁ・・・
なぁ~に、この仕様・・・
仕方ないので、フッターは使わずに画像を貼り付けることにするわ。
なんだよ・・・勘弁してくれよ・・・・
当然、2003と2007は正常に出力されるんだよね。
色の指定とかも疑ったのだが、試してみても印刷されない。
ほんと、頼むよぉ~、Excel。
で、ネットを漁っていたらヘッダーフッターの印刷が無ければ?OKだそうな。
今回は、フッターに画像を入れて印刷していたのだが、それをはずしてみた。
すると・・・・
罫線が印刷できたよ・・・
ほんと、勘弁してくれよなぁ・・・
なぁ~に、この仕様・・・
仕方ないので、フッターは使わずに画像を貼り付けることにするわ。
2011年6月10日金曜日
[Excel]シートを別ブックに保存する
こんちは。部隊長です。
梅雨でジメジメの蒸し暑暑ですが元気に行きましょう。寒いより暑いほうが好きです。女子は薄着になるし。
今回もまたExcelVBAで芸がないのですが、30分考えたので書き起こします。
そもそもあるシートを新規ブックとして起動させるには、
これだけ。
対象シートが非表示の場合、Copyメソッドが失敗しますので、
ブックの保護解除とシートの可視化も導入
この新規ブックを別名で保存するには、CopyするとWorkBooksがAddされたのと同じ状態になりますので、
します。ActiveWorkBookでもいいですが、Copyの後にActiveが動くような事があると・・・
というわけで全体のコードはこんな感じ。CSV形式での保存も対応しています。
divirta-se!
梅雨でジメジメの蒸し暑暑ですが元気に行きましょう。寒いより暑いほうが好きです。
今回もまたExcelVBAで芸がないのですが、30分考えたので書き起こします。
そもそもあるシートを新規ブックとして起動させるには、
Dim sht as WorkSheet Set sht = ThisWorkbook.Worksheets("対象のシート") sht.Copy
これだけ。
対象シートが非表示の場合、Copyメソッドが失敗しますので、
ブックの保護解除とシートの可視化も導入
Dim sht as WorkSheet Set sht = ThisWorkbook.Worksheets("対象のシート") ThisWorkbook.Unprotect Password:=BKPWD sht.Visible = True sht.Copy sht.Visible = False ThisWorkbook.Protect Password:=BKPWD
この新規ブックを別名で保存するには、CopyするとWorkBooksがAddされたのと同じ状態になりますので、
'' 最後のブックを別名で保存 Workbooks(Workbooks.Count).SaveAs newFileNm, FileFormat:=xlNormal
します。ActiveWorkBookでもいいですが、Copyの後にActiveが動くような事があると・・・
というわけで全体のコードはこんな感じ。CSV形式での保存も対応しています。
Sub SaveAsOtherName Dim newName As String newName = _ Application.GetSaveAsFilename( _ InitialFileName:="デフォのファイル名" _ , FileFilter:="エクセルファイル(*.xls),*.xls" & _ ",CSVファイル(*.csv),*.csv" _ , FilterIndex:=1 _ , Title:="保存先の指定" _ ) If newName = "FALSE" Then Exit Sub If Dir(newName) <> "" Then If MsgBox("同名のファイルが存在します。上書きしてもよろしいですか?", Title:=MSGBOX_TITLE, Buttons:=vbYesNo) <> vbYes Then Exit Sub End If End If Dim sht As Worksheet: Set sht = ThisWorkbook.Worksheets("コピー対象シート名") ThisWorkbook.Unprotect Password:=BKPWD sht.Visible = True sht.Copy sht.Visible = False ThisWorkbook.Protect Password:=BKPWD Application.DisplayAlerts = False '' 新ファイル名称の拡張子で保存形式を判定しています。 If CheckExtension("xls", newName) Then Workbooks(Workbooks.Count).SaveAs newName, FileFormat:=xlNormal Else Workbooks(Workbooks.Count).SaveAs newName, FileFormat:=xlCSV End If ActiveWorkbook.Close Application.DisplayAlerts = True MsgBox "保存しました", Title:=MSGBOX_TITLE End Sub
divirta-se!
登録:
投稿 (Atom)
とある規格化されたコード
世の中こんなもんまで規格化されていますよ、というお話 https://ja.wikipedia.org/wiki/ISO_5218 この辺が大変良くできた、ためになる(?)解説記事です。(長い https://qiita.com/aoshirobo/items/32deb...
-
今月2本目のUP、良いペースです。 おはよう御座います。部長です。 皆様いかがお過ごしでしょうか?僕はイカが釣れません。 で、 今日は、 アオリイカ用の新しいエギを25本買ったのでそのレビュー じゃなくて、EXCELマクロを書く時にハマりがちな「Me」...
-
<症状> IIS上に素の.htmlファイルを公開したらアクセスの最初に500エラーが発生。 再読込をすると正常にアクセス可能。 という症状が発生。 再読込をすると正常にアクセスできたので気にしてなかったら客先から指摘されてしまった。いろいろ弄ってると一定時間経つと「最...