Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12842 / 13646 ツリー ←次へ | 前へ→

【8361】バーコードをVBAで変更後、反映されない しまうま 03/10/10(金) 15:16 質問
【8364】Re:バーコードをVBAで変更後、反映されない INA 03/10/10(金) 16:06 回答
【8365】Re:バーコードをVBAで変更後、反映されない しまうま 03/10/10(金) 17:10 質問
【8369】Re:バーコードをVBAで変更後、反映されない ichinose 03/10/10(金) 20:57 回答
【8372】Re:バーコードをVBAで変更後、反映されない しまうま 03/10/11(土) 9:58 お礼

【8361】バーコードをVBAで変更後、反映されない
質問  しまうま  - 03/10/10(金) 15:16 -

引用なし
パスワード
   Code39のバーコードオブジェクトを、シート上に配置し、
バーコードのValue値をVBAから変更して印刷することを
考えています。

例えば、

Worksheets("Sheet1").BarCodeCtrl1.Value = "*" & tmpCodeValue & "*"

とすると、BarCodeCtrl1.Value は変更されますが、バーコードイメージ
は変更されません。
しかし、一旦Excelを保存終了して、再び開くと、バーコードイメージ
にもvalue値が正しく反映されています。

BarCodeCtrl1.Value を変更後、Excelを終了しなくても、直ぐにイメージに
反映されるようにするにはどのようにすればよろしいものでしょうか。

【8364】Re:バーコードをVBAで変更後、反映されない
回答  INA  - 03/10/10(金) 16:06 -

引用なし
パスワード
   Repaint メソッドを試してみては、いかがでしょうか?

【8365】Re:バーコードをVBAで変更後、反映されない
質問  しまうま  - 03/10/10(金) 17:10 -

引用なし
パスワード
   質問に自己補足させていただきます。

バーコードのValue値を変更した後、

シート上に、バーコードオブジェクトを配置した画面で、
ツールボックスの三角定規のボタンを用いて、

デザインモードがONのときは、バーコードのValue値は
バーコードに反映されないのですが、

デザインモードがOFFのときは、反映されます。
しかし、印刷に対しては、反映されない状態です。

解決策をお教えいただければ、幸いです。

【8369】Re:バーコードをVBAで変更後、反映されない
回答  ichinose  - 03/10/10(金) 20:57 -

引用なし
パスワード
   ▼しまうま さん:
こんばんは。

>バーコードのValue値を変更した後、
>
>シート上に、バーコードオブジェクトを配置した画面で、
>ツールボックスの三角定規のボタンを用いて、
>
>デザインモードがONのときは、バーコードのValue値は
>バーコードに反映されないのですが、
>
>デザインモードがOFFのときは、反映されます。
>しかし、印刷に対しては、反映されない状態です。
>
>解決策をお教えいただければ、幸いです。
バグなんでしょうねえ、たぶん?。
Pagesetupを少しいじると、いいみたい・・・。
理由は不明ですが・・・。
'==============================================
Sub test()
  tmpCodeValue = "123222 CODE-45"
  With Worksheets("Sheet1").BarCodeCtrl1
    .Value = "*" & tmpCodeValue & "*"
    End With
  With Sheet1.PageSetup
    .LeftHeader = ""
    '.CenterHeader = ""
    '.RightHeader = ""
    '.LeftFooter = ""
    '.CenterFooter = ""
    '.RightFooter = ""
    End With
End Sub

【8372】Re:バーコードをVBAで変更後、反映されない
お礼  しまうま  - 03/10/11(土) 9:58 -

引用なし
パスワード
   自分自身でもいろいろ試して見ましたところ、

Worksheets("Sheet1").BarCodeCtrl1.Width

を変更して、また元に戻すとValue値が反映され
るようです。

しかし、Pagesetupをいじる方法の方ががいいと
思いました。

どうもありがとうございました。

12842 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free