1cdf0e10cSrcweirAttribute VB_Name = "SetTextBoxFont" 2*e76eebc6SAndrew Rist'************************************************************************* 3*e76eebc6SAndrew Rist' 4*e76eebc6SAndrew Rist' Licensed to the Apache Software Foundation (ASF) under one 5*e76eebc6SAndrew Rist' or more contributor license agreements. See the NOTICE file 6*e76eebc6SAndrew Rist' distributed with this work for additional information 7*e76eebc6SAndrew Rist' regarding copyright ownership. The ASF licenses this file 8*e76eebc6SAndrew Rist' to you under the Apache License, Version 2.0 (the 9*e76eebc6SAndrew Rist' "License"); you may not use this file except in compliance 10*e76eebc6SAndrew Rist' with the License. You may obtain a copy of the License at 11*e76eebc6SAndrew Rist' 12*e76eebc6SAndrew Rist' http://www.apache.org/licenses/LICENSE-2.0 13*e76eebc6SAndrew Rist' 14*e76eebc6SAndrew Rist' Unless required by applicable law or agreed to in writing, 15*e76eebc6SAndrew Rist' software distributed under the License is distributed on an 16*e76eebc6SAndrew Rist' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 17*e76eebc6SAndrew Rist' KIND, either express or implied. See the License for the 18*e76eebc6SAndrew Rist' specific language governing permissions and limitations 19*e76eebc6SAndrew Rist' under the License. 20*e76eebc6SAndrew Rist' 21*e76eebc6SAndrew Rist'************************************************************************* 22cdf0e10cSrcweirOption Explicit 23cdf0e10cSrcweir 24cdf0e10cSrcweir' We change the font used for text box shapes here for the japanese 25cdf0e10cSrcweir' version, because office 2000 sometimes displays squares instead of 26cdf0e10cSrcweir' chars 27cdf0e10cSrcweirPublic Sub SetTextBoxFont() 28cdf0e10cSrcweir Dim aSheet As Worksheet 29cdf0e10cSrcweir Dim myShape As Shape 30cdf0e10cSrcweir Set aSheet = Sheets(1) 31cdf0e10cSrcweir 32cdf0e10cSrcweir For Each myShape In aSheet.Shapes 33cdf0e10cSrcweir If myShape.Type = msoTextBox Then 34cdf0e10cSrcweir myShape.Select 35cdf0e10cSrcweir With Selection.Characters.Font 36cdf0e10cSrcweir .Name = "MS PGothic" 37cdf0e10cSrcweir .Size = 10 38cdf0e10cSrcweir End With 39cdf0e10cSrcweir End If 40cdf0e10cSrcweir Next myShape 41cdf0e10cSrcweir Range("A1").Select 42cdf0e10cSrcweirEnd Sub 43cdf0e10cSrcweir 44